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providing a rapid structural assessment of a waterfront pier given the information gathered 
during the on-site inspection combined with principles of waterfront structure design. The 
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information gathered by UCT personnel, can be used in the field to provide an estimate of the 
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|. Introduction 


A. General 


Maritime transportation has generally been the most convenient and least expensive means of 
transporting goods’. As technology in the ship design and construction industry has improved, 
cargo ships have become larger and more specialized. Accordingly, complex port facilities 
worldwide have been developed to accommodate waterborne cargo. These marine facilities 
typically include piers, wharves, quays, and dolphins as well as a wide array of cargo handling 
equipment such as forklifts, cranes, and stacking straddle carriers. Historically, the finger pier 
(see Figure 1) was the most characteristic type of berth construction [1]. Though modern 
construction has been trending towards more use of concrete, steel, composites, and 


combinations, timber has been, and continues to be, a primary construction material. 





Figure 1. Examples of finger piers (top view) 


There are a number of timber, finger piers still in service in the United States and overseas. 
For many of the marine facilities located in the U.S., adequate design information is available 
that, with current condition data, can be used to determine the load capacity of the structure. 
However, with the mobile nature of the armed forces, marine facilities are being encountered 
overseas for which no design data is readily available. To be able to consider such a pier in 
tactical planning, an assessment must be performed to estimate the load capacity of the pier. 
There is a group of technicians in the U.S. Navy that can perform rapid inspections on marine 
structures and gather data on the physical condition of the structure as well as the local 
environment. This data, combined with knowledge of design principles for waterfront 


structures, can be used to provide a rapid estimate of the load capacity of the pier. 





B. Underwater Construction Teams 


The Underwater Construction Teams’ (UCTs) mission tasks them with: “Providing(sic) a 
capability for construction, inspection, repair, and maintenance of ocean facilities in support 
of Naval and Marine Corps operations...” and “Maintaining(sic) [the] capability to support a 
Fleet Marine Force (FMF) amphibious assault..." To accomplish their assigned mission, there 
are a number of capabilities which the UCTs must maintain. Among these, the items of 
interest to this study include*: 
e During the initial period of contingency mobilization, provide underwater 
construction support of Naval Beach Groups, Harbor Defense Groups, and 
other fleet units as directed. 
e Construct, inspect, and repair ocean facilities in support of Naval and 
Marine Corps operations in the combat zone or at forward area support 
bases. 
e Respond to emergency inspection and repair of essential fleet water-front 
systems within 48 hours. 
As these capabilities indicate, and anecdotal evidence supports, the UCTs must be able to 
provide rapid inspections of waterfront facilities which are being considered for use in tactical 
operations. Specifically, the UCTs perform waterfront inspections of ocean facilities in 
support of combat operations. While the results of the inspection may reveal that the pier is 
sound and undamaged there is currently no method of taking the information gathered during 


an inspection and quickly estimating the structural capacity of the pier in question. 


C. Scope of this Study 


This study focuses on a strategy for providing a rapid structural assessment of a waterfront 
pier given the information gathered during the on-site UCT inspection combined with 
principles of waterfront structure design. The author has developed a program using the C 
programming language that, given the limited information gathered by UCT personnel, can be 
used in the field to provide an estimate of the structural capacity of an open, timber, pile- 
supported pier . The program prompts the user for various physical, environmental, and 


condition data and outputs various data files. A text file ıs produced which contains the 





inspection record that reflects the users input and the assessment results for the pier being 


analyzed. A MATLABS script file is produced which can be used for subsequent processing. 








ll. Pier Configuration and Nomenclature 


The general designation for the place where a vessel can be moored is a dock. A pier is a dock 
that extends outward, perpendicular to, or at some skew angle to, the shoreline. A pier is 
essentially a free-standing structure, shore connected at one end, which allows berthing of 
vessels along both sides. The most common pier construction consists of open, pile supported 
structures which include a decking system constructed on a pile foundation. The foundation 
contains a series of evenly spaced pile groups, or bents, as shown in Figure 2. The pile bents 
may be further strengthened to resist lateral loads by the addition of batter piles or by being 


rigidly cross-braced. 





Figure 2. Typical open, pile supported pier 


Timber has been the traditional material for waterfront construction. It is durable and it 
possesses good impact resistance and the ability to distribute loads effectively’. It is 
particularly durable in locations which are free from biological organisms and subjected to 
continuous “wet” conditions. Tsinker(1) sites the example of the more than 100 year old 
Brooklyn Bridge which is supported on a timber cribbage foundation. Currently, all-timber 
pier construction is usually relegated to lightly loaded sites such as small craft harbors and 
public facilities. 

There are many types of timber used in marine construction. For pilings, the type selected 
generally depends upon availability and cost. Usually, piling timber is treated with chemical 
agents such as creosote to deter waterborne biological organisms, such as /imnoria or teredos, 


and prolong the life of the pile. Decking timber is generally a hardwood such as white oak but 


may vary based upon availability. It is not necessary to treat the decking timber since it is well 


away from the splash zone and not subject to the aforementioned biological hazards. 


A. Pier Construction 


Timber pier construction is generally of the type shown in Figure 3. The shaded components 


may be present but are not required. 
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Figure 3. Typical timber pier structure and nomenclature 


1. Piles 
There are three types of piles that contribute to a piers ability to withstand loading. Bearing 


piles are vertical piles that support the vertical load of the pier and may provide lateral support 
as well. Bearing piles are friction-type, end-bearing, or a combination of both. Batter piles are 
placed on an angle to provide lateral support. Additionally, they may provide vertical support 
as well. As with bearing piles, batter piles may be friction-type, end-bearing or a combination 


of both. For batter piles that are a combination of both, a batter may contribute to the lateral 
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resistance in either compression or tension. Conversely, end-bearing batter piles may 
contribute only if in compression. Lastly, there are fender piles. There are many 
configurations of fender system comprised of piles with the simplest shown in Figure 4. A 
fender system is installed to absorb the energy imparted to the pier while a ship is berthing, 
thus decreasing the lateral displacement of the pier and ultimately reducing the loads on the 
pier. Fender piles are generally considered sacrificial in nature and require regular 


maintenance to minimize damage from docking impact to the pier. 





Figure 4. Example of a simple fender 


2. Decking 


Decking consists of everything above the pile ends. This includes the pile caps, deck 
stringers, deck planking, and deck facing. Of these, the deck facing is the only component that 
does not contribute to the structural capacity of the pier. Its purpose is to protect the decking 
against damage from vehicular traffic, etc. The decking is usually placed well above the splash 
zone. Pile caps, shown in Figure 5[3], consist of either a solid beam that spans across the tops 


of the pilings 





Spin Cap 





Figure 5. Pile head connection details 


in the bent or two beams that are situated on either side of the pile tops. In both cases, the pile 
head is considered a pinned connection. Deck stringers are evenly spaced timbers, placed 
edgewise, that span the bents. Lastly, the deck planking spans the stringers to complete the 


load carrying structure. Figure 6, adapted from NAVFAC?, details these various components. 





Figure 6. Decking detail 





Ill. Design Considerations 


When designing a marine structure, there are no definitive, binding building codes or 
standards to which the designer may refer. However, **...there are several guideline codes of 
practice to which the designer may refer for general design and for specific requirements."[3] 
Before a meaningful discussion of the analytic methods used in conducting the structural 
assessment can be properly conducted, it is important to understand the various considerations 


that are an integral part of a marine facility design. 


A. Material 


There are various types of timber used throughout waterfront construction. Timber is used 
because it is durable, convenient to work with, possesses good impact resistance and the 
ability to distribute loads effectively[3]. Table 1 contains properties of a few types of timber 
commonly used for pilings. Often, the softer timbers will be pressure-treated before use. For 


Proportional limit Proportional limit in Shearing 
in compression compression strength 
Elastic modulus parallel to grain perpendicular to parallel to 
Timber Type in bending (psi) (psi) ain (psi) prain (psi) 
Douglas Fir 1,950,000 1,160 
(coast type) 
Southern Yellow 1,990,000 1,500 
Pine (long leaf) 
Greenheart (Ocotea 3,700,000 830 
radiaei) 
Azobe (Ekki) 3,000,000 2,650 
(Lophira procera) 


*These values for “air-dry” wood...typically around 12% moisture. For wood with a higher moisture content, 
such as wood that is continuously submer properties are reduced and unit weights increased 





Table 1. Properties of timber commonly used in marine construction[3] 


the decking structure of a pier, hardwood, such as white oak, 1s often used. The main threats to 
timber marine structures are rot, mechanical damage, or marine organism attack. Rot is caused 
primarily by stagnant fresh water. When present, rot is usually found in the structural 
components above the pilings and can be difficult to detect. Mechanical damage can be 
caused by any number of sources including berthing operations and cargo handling. It can be 


found in the decking and the pilings. However, major mechanical damage to pilings is usually 
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confined to those pilings located at the perimeter of the structure. It is in those locations that 
the pilings can come into direct contact with ships, barges, tugs, etc. In the interior of the 
piling group, mechanical damage is caused primarily by abrasion and wear from floating 
debris. Of the main threats to timber marine structures, marine organism attack is the most 
prevalent. There are two prominent types of marine borers: the woodgribble of the Limnoria 


family and the teredo, which is a mollusk. 





Figure 7. Damage profiles for the woodgribble (left) and the teredo (right) 


The woodgribble eats away shallow furrows at the piling surface in the surf zone leaving an 
“hourglass” appearance. The teredo tunnels throughout the pile leaving the pile riddled with 
holes. Examples of this damage can be seen in Figure 7. Because most of the teredo damage is 


inside the pile, it takes a more experienced eye to detect it. 


B. Loading 


“Design of fixed piers and wharves is usually controlled by live load and lateral load 
requirements.”? Various loads must be considered when assessing the structural capacity of a 
pier. These loads fall into one of three general categories of loading: permanent load which is 
also known as dead load and is a vertical loading; temporary loads which include live loads 
from operations and environmental loads and contribute to both vertical and lateral loading; 


and special loads which include accidental loads, seismic loads and other unusual loading. A 
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Structure is not always loaded as designed and, thus, when designing a marine structure, 
“...the selection of design loads is a problem of statistics and assessment of probability."[1] 


Figure 8 illustrates the numerous sources of loading that a pier may experience. 














Wind Crane & 
in : 
e Cargo Handling 3 
АА 
-> 
Vehicular 
L = т po < 
| 
м > = 
[m IC = 
Berthing | Е 
| 
| = | 
ANT 
| 
| 
Wave Action & 
Harbor Surge 





Biodeterioration 


Seismic & 
Subsurface / 


| 

| IN 
І 

| ib 


Figure 8. Typical loading on a marine structure. 


Compared to other types of structures, piers are typically designed to support relatively heavy 
transient loads as well as a relatively large lateral load. The design vertical load capacity is 
generally governed by deck and cargo live loading, vehicle loading, and mobile equipment 
used on the pier. The design lateral load 1s governed by berthing and mooring forces. Loading 


design considerations are discussed as to the contribution they make to the vertical and lateral 


components of loading. 


1. Vertical 
Vertical loading includes the dead load, which is the weight of the structure and everything 


permanently attached such as any mooring hardware, curbs, light poles, etc. The vertical load 
also contains live load contributions which consist of uniform loading and point loading from 


cargo, vehicular traffic, and material handling equipment such as forklifts and mobile cranes, 
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which are rubber tire or crawler tracked mounted. When designing a pier, there are two 
concepts employed in the formulation of design loads: the "real-life" load assumption based 
upon miscellaneous loads falling in a line or concentrated load category, and the “equivalent 
uniform” load assumption[1]. The latter can be misleading. For example, a pallet or container 
may be assumed to provide uniform loading on the order of 200-600 psf. However, a pallet or 
container may actually be loaded in such a way that there is concentrated loading that exceeds 
the assumed uniform loading. Thus, it is best to compromise with a combination of both 
concepts. When looking at the influence of loading, concentrated loads dominate at the 


decking while uniform loading tends to dominate the substructure such as piling size. 


2. Lateral 


The lateral loads consist primarily of mooring forces, berthing forces, and environmental 
loading. The mooring forces are usually from environmental loading on the ship alongside the 
pier. The berthing forces are from the actual berthing operations where there are potential 
impacts incident upon the pier from the ship. This assessment deals with the environmental 
aspects of lateral loading since the berthing forces are highly unpredictable, varying with ship 
size, speed, angle of approach, and fender system. It 1s assumed that if a pier is of importance 
tactically, great care will be taken to see that damage, such as the type experienced during 


careless berthing, will be avoided. 


a. Wind 


Wind contributes primarily to the lateral loading on a pier. It blows from many directions and 
can change without notice. The wind impinging upon a surface, increases the pressure on that 
surface and results in a force loading. However, given the construction characteristics of an 
open pier, the loading on the structure itself is minor compared with the wind effects of the 
ship moored along side. The exposed, directional, surface area of the ship is susceptible to 
wind loading which is then transferred to the pier. When designing a pier, historical wind 
data, along with the design ship size, is analyzed to size the structural members according to 
the predominant wind direction. Also, it is assumed that under high wind or wave conditions, 
vessels will leave the berth and crane operations will cease so that there is a limiting design 


wind. The wind speed used in loading calculations is the wind 10 m above the surface of the 
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water. If the wind speed is measured at a different height, a relation is available to convert it to 
a 10 m equivalent. The maximum wind load on a pier will be when the wind direction is 


perpendicular to the pier. 


b. Current 
“Current forces are normally neglected in the design of harbor structures. However, the 
rational design of exposed piling as a column...requires that lateral forces due to current be 


*© Currents can be caused by the wind, river flow, and tide flow. The current speed 


considered. 
is usually maximum at the surface and reduces to zero at the bottom. It is possible to have 
opposing sources such as might be seen when a river current flows in on direction and the 
wind induces a current flow in the opposite direction. If strong enough, a current can increase 
the pressure head on one side of a moored vessel causing a considerable increase in mooring 
forces. The submerged, directional, surface area of the ship is susceptible to current loading 
which is then transferred to the pier. As with the wind effects, current effects are present on 


the pilings of the pier, but the effects from the ship dominate. The maximum current load on a 


pier will occur when the current direction 15 perpendicular to the pier. 


c. Waves 
As with wind, wave design considerations rely on historical data. This data is usually 


presented as short-term data, which is presented in terms of occurrence frequency and yearly 
averages for each month, and long-term wave statistics, which are usually given in terms of 
maximum wave height versus statistical return period. If considering unidirectional sea waves, 
they are usually represented as a wave spectrum due to their irregularity. When expanding to 
the more realistic case where waves are multi-directional, there have been three dimensional 
wave spectra developed but use in regards to harbor design/analysis is limited[3]. Waves are 
generally classified as one of the following: wind generated waves; ship generated waves; 
astronomical tidal waves; storm surges; harbor seiches, which is the excitation of a harbor due 
to long period ocean waves; tsunamis; capillary waves; and interval waves[1]. Of these, wind 
is the primary cause of waves. Therefore, wind waves and their associated swells are 
considered in the design of coastal facilities. Given the oscillatory nature of waves, wave 


loads are dynamic. However, for the range of water depths encountered with coastal piers, 
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wave load can generally be represented as equivalent static loads[3]. The manner in which 
wave loads and their associated calculations are handled depends upon the member or 
structure dimension relative to wavelength. If the member being investigated is a pile and its 
diameter is small compared to the wavelength, the wave is not influenced by the pile and the 
resulting force on the pile is due to water particle velocities and accelerations. These are also 
know as drag forces and inertial forces respectively. If the member or structure being 
investigated is large enough to affect the passing wave, diffraction and wave scattering must 
be considered. If the structure is very wide, such as a ship, then reflection occurs and the 
forces are treated as a rise in hydrostatic pressure head. Gaythwaite[3] provides the following 
criteria for application of wave force calculations: 

e For D/A < 0.2, drag and inertia forces dominate; use the Morison equation. 

e For D/A> 0.2, diffraction effects become increasingly important; use diffraction theory. 

e For D/A> 1.0, pure reflection conditions exist; treat the structure as a seawall. 

Open piled structures are the preferred type of construction at locations exposed to heavy 
waves because they enable practically free passage of waves[1]. The maximum wave loading 


occurs when the wave propagation direction is perpendicular to a moored ship. 


3. Dynamic 
The two predominant contribution to dynamic loading are periodic waves and seismic activity. 


If a wave having a period, 7,, close to that of the moored ship is incident to the ship, it may 
result in resonant phenomena that will amplify the ships mooring forces on the pier. 
Determination of these effect require extensive analysis of the location, to include scale 


modeling to calibrate the mathematical model, and detailed seismic history data. 


C. Seismic 

Typically, marine structures, such as piers, are designed for high lateral loading and thus, are 
relatively rigid with natural periods on the order of 0.5 seconds or less[3]. Additionally, 
immersion in water provides damping in addition to that inherent in land-based structures. 
However, there may be exceptions such as piers having vertical cantilever piles. For nearshore 


pier structures, a check for seismic forces should be conducted in accordance with 
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specifications provided by The American Association of State Highway Transportation 


Officials or AASHTO’. 


D. Geotechnical 


Soil properties contribute greatly to the ability of a pile to withstand vertical loading either in 
end bearing capacity, friction bearing capacity or a combination of both. When designing a 
pier, extensive testing Is conducted on the soil foundation to determine its ability to support 
loading. This information is used to determine the depth to which the piles must be driven and 
the point of fixity, D which is the point at which the pile is considered fixed in the soil. The 
fixity 1s used to determine the unsupported pile length in load capacity calculations. Since the 
UCT will not have access to design soil information in a tactical situation, they must either 
test the soil to determine soil type or rely upon a basic assumption. The current method? for 
dealing with unknown piers is to assume that the constructors used piles sized such that the 
soil and geotechnical conditions exceed the strength of the pile. Thus the pile strength is the 


limiting factor when considering the foundation strength. 


E. lce 


If present, ice can exert a lateral force upon the pilings at the waterline. If the ice 1s sheeted, 
both the wind and the current can exert shear force on the ice. Also, the ice can impose 
vertical loading on the piling with the tide change. However, if ice thick enough to cause 
significant loading on the pier is present, it is unlikely that a ship would be able to moor there. 
Tsinker [1] states that, normally, conventional open piled structures are not feasible in 


heavily-ice-infested waters. 


F. Factor of Safety 


When designing a waterfront structure for loading, great care must be taken to ensure that the 
structural member will not fail under design loading. When using AASHTO[7] specifications 
for pier design, as recommended in much of the literature, allowable stresses, with reduction 
factors for various conditions, are provided for the building material used. Often, these values 
can be converted directly to allowable loads. For pilings, however, an additional check for 


critical loading must be performed since the piling behaves as a column and is subject to 
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buckling. Thus, the factor of safety is used to reduce the critical load to an allowable load that 
may, for longer piles, be less than the allowable load determined using allowable stress in 


compression parallel to the grain. 


G. Miscellaneous 


-When performing a design analysis, settlement of foundations and the resulting effect on pile 
cap load capacity reviewed. For this assessment, however, settlement will not be considered 
unless it is severe. And then only by the personnel on-site. 

-Often times there are connectors in a marine structure. It is left to the inspection team to 
assess the condition of any connectors that might be present and determine the impact to the 
structural capacity. If the connectors holding cross-bracing in place are severely deteriorated, 
it would be best to model the pier as having no cross bracing. While this may limit the lateral 
capacity of the pier, it will prevent an overly optimistic capacity assessment. 

-Biological fouling such as mollusk growth can add to the drag of the pilings when 
considering current and wave effects. It can also add weight to the structure at low tide since 


the growth will be above the waterline. 
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IV. Underwater Construction Team Inspection Data 


“А major portion of the UCT's activity is directly related to the underwater inspection of a 
wide variety of waterfront structures and other marine facilities. UCT underwater inspections 
are primarily visual observations of the facility being inspected.” This quote comes directly 
from the NAVFAC P-990: Underwater Construction and Repair Techniques manual and 
highlights the fact that waterfront structure inspections are a UCT core competency. The P- 
990 provides the UCTs with the guidance to perform waterfront inspections on many types of 
structures including those constructed of timber. Additionally, emphasis is placed upon the 
importance of reliable, detailed inspection documentation for subsequent engineering 


assessment. 


A. Levels of Inspection 


The P-990 defines three levels of inspection which provide increasingly more detail as one 
moves from the basic Level I inspection to the more advanced Level IH inspection. A level III 


inspection is still primarily a visual inspection but will often include some Non-Destructive 









Level "*Purpose *Detectable Defects 


General visual to confirm as-built condition | -Major losses of wood 
and detect severe damage -Broken piles and bracings 
-Severe abrasion or marine borer attack 


Detect surface defects normally obscured by | -External pile damage due to marine borers 
marine growth -Splintered piles 

-Loss of bolts and fasteners 

-Early borer and insect infestation 


III Detect hidden and imminent damage -Internal damage due to marine borers (internal voids) 
-Decrease in material streng 


Table 2. Level of inspection versus detectable damage to timber waterfront structures 


















Testing (NDT) techniques. In some cases, partially destructive techniques, such as core 
sampling, are used[9]. Appendix A provides a more detailed description of each level of 
inspection as described in the P-990[9]. However, a summary of the purpose and detectable 


defects for each level of inspection are shown in Table 2. 


B. Pier Inspection Documentation 


As stated previously, it is important that an inspection produce reliable, detailed 


documentation. The P-990 provides a standard form for the reporting of pile condition as 
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observed during a UCT pier inspection. This form, the Pile Inspection Record (see Appendix 
B), allows for each pile to be classified according to one of five condition codes: ND (no 
damage); MN (minor damage); MD (moderate damage); MJ (major damage); and SV (severe 
damage). Appendix C provides an explanation for each of these codes and gives 
representative diagrams of each pile condition. The Pile Inspection Record also allows for 
recording of the type of damage to the pile being inspected. This is important when evidence 
of biological damage, such as that from marine borers, exists. Additional information, which 
is easily collectible, required for the purpose of this paper include physical dimensions of 


various structural members and local environmental data such as wind, wave and current. 


1. Physical Dimensions 
Dimensions of the various structural components of the pier are required to assess their 


mechanical strength. These include measurements which are discussed individually. 


a. Pile Diameter and Depth 
Typically, pile diameter, D, is consistent throughout the pier structure and will be treated as 


such for the purposes of this assessment. However, care should be given when measuring the 
diameter of timber piles since they are often tapered and may experience a reduction in 
diameter from the pile cap to the embedded portion of the pile. Thus, measurement should be 
taken near the bottom to ensure an accurate calculation of the pile strength. Allowance has 
been made in the program for the possibility that batter pilings are of a different diameter than 
the bearing piles. In an extreme case, such as a damaged pile having been replaced, a different 
pile diameter may be entered for a bearing pile. This will be discussed further in the 
Assessment section of this paper. Also of interest are the depth, d, and water-surface-to-point- 
of-connection dimensions. These values combine to provide the unsupported length, L,, of the 


pile. 


b. Pile Cap, Stringer, and Decking Dimensions 
These components of the load bearing structure can all be modeled as beams. The height and 


width of these members are required to perform the assessment. Care must be given to record 


28 





the vertical dimension as “height”, h, and the horizontal dimension as “width”, b, so that the 


proper modulus in bending may be calculated. 


2. Environmental Data 
When designing a waterfront structure such as a pier, detailed environmental data is collected 


and used in the analysis to ensure that the resultant structure can withstand the environmental 
loading expected given the construction budget. This information will include soil borings, 
temperature ranges, current data, and statistical wind data such as a wind rose. A wind rose 
graphically represents the direction, frequency, and intensity of the average winds at a 
particular location over a period of time.[1] When conducting inspections at known facilities, 
the UCT inspection team may have access to this historical data. However, when conducting 
an inspection in a tactical environment, the UCT inspection team will have little, if any, of this 


data available to them. They must collect it via observation. 


a. Wind 
Prevailing and extreme wind speeds and directions and their frequency of occurrence are of 


primary concern when considering wind loading[3]. The UCT inspection team can collect 
data from the time of their arrival on site to estimate the average wind speeds and prevailing 
directions from which they come. They are not capable of determining extreme wind speeds 
associated with long return periods such as those experienced in 50- or 100-year storms. 
However, given that the situation is tactical and that a ship interested in using the pier for off- 
loading will have access to meteorological information, the wind speed can be monitored for 
extreme conditions. The information of interest regarding wind is the velocity magnitude, Г, 
the direction it is blowing relative to the longitudinal axis of the pier, @,, and the height above 


the water surface, h,,, that the measurement was taken/observed. 


b. Current 
The current is usually estimated by divers in the water. In most cases the current will run 


parallel to the shoreline and the current velocity will decrease with depth. The information of 
interest regarding current is the velocity magnitude, V., and the direction it is flowing relative 


to the piers longitudinal axis @. It is best to measure the current at the surface of the water. 
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c. Waves 
There are two types of waves of interest to the loading on waterfront structures: sea waves and 


waves caused by passing vessels. It may be difficult to distinguish the various components of 
the incident waves. Therefore, it is best if UCT personnel measure the maximum periodic 
wave height, Hwave, measured peak to trough, period, Tyave, and direction, Grave. Care must be 


take to discount single occurrence waves in this observation. 


d. Soil 
The capability to perform geotechnical testing using hand powered tools has been recently 


introduced into the UCTs. However, during conversations with personnel from the Naval 
Engineering Service Center, Port Hueneme, CA, additional experience is required with these 
tools before reliable soil strength information can be obtained. Information regarding soil type 


may be of use for determining depth to fixity, Dz. 





V. Assessment 


In this section, the methods for determining the forces and load capacity are developed. The 
general approach taken is to assess only the structural components of the pier. If additional 
structures are present on the pier or there is installed equipment present on the pier, this must 
be accounted for on-site in accordance with good engineering practice. In all cases, closed end 
solutions equations are used since they readily lend themselves to computer programming 
techniques. Gaythwaite[3] suggests that this is not unusual for near-shore waterfront 


Structures. 


A. Loads 


1. Dead 


Ideally, when calculating the deadweight of the structure, detailed measurement would be 
taken of every pier member and attachment such as those used in mooring. However, given 
the nature of the situation in which the UCTs will be conducting such an inspection, this 
approach is unreasonable. Therefore, a simplifying approach is needed which will err on the 
conservative side. Before continuing with the actual weight calculations, a few simple 


dimension calculations must be made from the input provided by the inspection team. 





l ier = (Hof bents (bent spacing) Eq. 1 
iles 
W мег = e - ) ( pile spacing) Eq. 2 
where: ee = length of pier, ft, 
# of bents total number of bents, 


bent spacing center to center, ft, 


Were width of pier, ft, 
piles/bent # of bearing piles in each bent, 
pile spacing = distance center to center of piles in a bent, ft. 


When considering the piles contribution to deadweight, an allowance must be made for 
buoyancy effects will act to reduce the weight of the pile. Thus, the weight of the pile will be 


calculated as follows: 


7 


~ 


я р 


WE wien = сз АЕ ак Pas) 


Eq. 3 
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where: Ме п = 


Ponle = 


а, = 
Pwater = 


weight of pile in bent n, Ib, 

bent number, 

diameter of pile, ft, 

length of piles in bent n from mudline to pile cap, ft, 
density of pile material, lbm/ft’, 

depth at bent м, ft, 

density of seawater, 64 Ibm/ft". 


The weight of the pile cap is given as follows: 


wt pile cap 


where: WINE cap = 


Бре сар 
Йрие сар 
Padecking 
Wpier 


=b 


pile cap P vite cap w pier р decking E q. 4 


weight of pile cap, Ib 

base dimension, ft, 

height dimension, ft, 

density of pile material, lbm/ft’, 
pier width. 


The weight of the deck planking per bent is given as follows: 


Wit arene = и (bent spacing) Precrn Ед. 5 
where: Witenes = weight of planking, Ib 
ла = height dimension of planking, ft, 
Ber = pier width, ft, 
bent spacing = centerto center spacing, ft, 
Paecking = density of decking material, lbm/ft’. 


The weight of the deck stringers per bent is given as follows: 


. ier € 
ПИ ен = Der En (2 ent Sp acıng ar D pile cap | $ oe се трие T | en: =i у 

where: Уре stringer weight per bent, Ib, 

Danzer = stringer base dimension, ft, 

meer = stringer height dimension, ft, 

bent spacing = center to center spacing, ft, 

Брйе сар = pile cap base dimension, ft, 

Mme? = pier width, ft, 

stringer spacing = distance center to center of stringers, ft, 

Paecking = density of decking, lbm/ft’. 


To account for the various additional members of the pier, such as mooring accessories, 


whalers, curbing, etc. (excluding any buildings present on the pier), the weight of the decking 


will be increased by 15%. Thus, the weight carried by each bent can be expressed as follows: 


bent 


Won = 1.15(W! piece, + ил 


planking t W angen | Eq. 7 
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The weight can then be distributed as follows: 


Ї 
A т be Eq. 8 
(# piles per bent — 1) - 


load je dead intn = 
for an interior pile. The exterior piles support only half as much deck area as do the interior 
piles. However, since a majority of the additional weight is carried by the external piles the 
weight for those piles will be adjusted even further and is represented by: 


0.15 ми sen, Eq. 8a 


+ wi pile n 


WE pont 


2(# piles per bent — 1) M 2 


load pile dead «хал 


2. Wind 


When calculating wind pressure, it is necessary to do so using the sustained wind velocity 
which is defined as the wind speed averaged over one minute. Also, the wind speed generally 
used for evaluation of wind loading is the sustained wind speed at located 10m above the 
water surface. If the wind speed observation is taken at another height, a correction must be 
applied to the measured, sustained wind velocity to normalized it to this standard reference 
datum. Thus, we have the following expression which yields the pressure, or load, due to 
wind: 


pr = 0000503 Eq. 9 


where: 





] 
y | һ Po Eq. 10 
И С ара на 


9 


m 


giving the following relation: 


| h ух Ед. 11 
p, - 0.00256 328084 Ve 


where: De = wind pressure, Ibf/ft’, 
h = height above water surface, ft, 
E = measured wind speed, mph. 
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If physical characteristics of the ship are known, the unit wind pressure can be used in the 


following relation[1] to calculate the total force on the moored ship, and thus, on the pier, due 


to wind: 
P, - kp, C,C, (2A, sin 0, + ЎА, соз” Ө.) Eq. 12 
where: р = Total wind force, Ibf, 

k = 1.3, shape factor-considers suction increase, leeward side, 

D. = wind pressure, lbf/ft’, 

СІ = Coefficient that considers length of ship, see Table 3, 

C2 = gust factor; average value range 1.25-1.45, small values for 
large ships and large values for small ships, see Table 3 for 
adaptation, 

ХА, & ХА, = sum of exposed to wind areas of ship, structure, buildings 


on the structure, etc. in x and y direction, ft’, 
Ө, = angle of wind direction to pier centerline with 0 being 
straight off the end of the pier from the foot of the pier. 


— of the De 





Table 3. Coefficients C, and C; for wind force calculation. 


If ship characteristics are unavailable, Tsinker[1] provides a graph relating ship displacement 
to approximate wind load per unit length of ship. After conversion to the USCS system of 
units, the plot looks like Figure 9. The values represented in this plot are considered 


conservative. 
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Approximate wind load per linear foot of ship 
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Figure 9. Displacement to wind load relation (Tsinker[1]) 


However, they do enable the approximation of ship size capacity in the absence of ship 
dimension data. A curve fit was performed using Origin™ from Microcal™ resulting in the 


following relation: 


(P'w-302.97055) 


(созо) 
О, =-2.97522 +3.26401е 4 Eq. 13 
where: Ds = Ship Displacement, 000’s long tons, 
ша = Wind Load/lin ft of ship, Ibf. 


If limited information about the ship is known, such as the displacement, the data from Figure 
9 can be ordered such that wind loading is a function of ship displacement and the following 


relation is determined from curve fit: 


-Ds 


Ds 
Р'. = 013376+ 140261 ы ess n 073301 - ош) Ед. 14 





where P ', and Ds are as before. If an additional ship were to moor at the pier, the wind load 
effects resulting form the presence of the second ship would be half of those of the first ship. 
This is due to sheltering effects of the windward ship on the leeward ship. However, this 


assessment considers only one ship at the pier. 


— 
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As stated previously, the maximum wind effects on the pier are when the wind is 
perpendicular to the pier. If the wind direction is landward along the longitudinal axis of the 
pier, the deck structure, along with the pier-shore interface, assists the pilings in resisting the 
load. If the wind direction is seaward, sheltering significantly reduces the wind load since a 
majority of the exposed ship area is below the land elevation. When designing for wind load, 
the minimum limiting wind velocity should be taken as 70 miles per hour. This value will be 


checked in the calculations of wind loading in the program. 


3. Current 
The current force on the ship and submerged structure can be obtained from the following 
relation: 
P m GE МУ AV Se Eq. 15 
CES 7 Pw D СХ + y c,y 
where: P. = avg current force submerged object, Ibf, 

O» = density of water, slugs/ft3, 

Ср = drag coefficient, 0.6-1.2 for piles, 1.0 for ship 

A, = exposed area in the ith direction, ft’, 


current velocity, ft/s. 


giving the average force per unit length of pile over the depth as 


5 - Eq. 16 





tae Р.а Pd 
М. = |Р „гй = = —— Eq. 17 
0 


The force on the ship due to current will be transferred to the pier as a point load at the pile- 
cap interface. Generally, the current, if any, flows perpendicular to the pier. The coefficient c 
provides for roughness due to organic growth. For heavy growth, the effective diameter of the 


piling may need to be increased when determining current forces on the pile. 


4. Waves 
The following discussion is an adaptation from the U.S. Army Corps of Engineers(COE)’° on 


dealing with wave effects on piles. The COE has a comprehensive approach to determining 


wave forces and moments on piles, often relying on graphs and charts for values of 
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coefficients or non-dimensionalized factors. This sort of analysis does not work well for 
programming since it would require limitless effort to curve-fit each and every plot contained 
therein. However, it is also possible to arrive at these values numerically, given some 
simplifications. 

When assessing the forces on a pile, it is unnecessary to have detailed information about the 
force distribution along the pile. What is important is the total force acting on the pile and the 
total moment about the mudline. As discussed earlier, the presence of the pile in the wave 
field has little, if any, effect on the passing wave due to its size relative to the wavelength. 
Thus, the Morison equation is applicable and the total wave force, in the direction of wave 


propagation, is: 


= лр? аа 1 Е 
P ave = Бла + Ва = Си + Cp 2p Dili E 
wave P inertial P drag MP 4 dt D 2 р | | 
where: Pas = wave force 
E — component force 


См, Ср = hydrodynamic force coefficients 
р = density of seawater 

D = diameter of pile 

u = water particle velocity 

du/dt = water particle acceleration 


The total force, P,,4,,, and total moment of forces, M,ave, can be found through integration: 





n п 
Eq. 
P F [pa Í dz + Ip... dz Е Ея їй е 4 2 
zd F 
й n 
М кс => ГС a а)р, „2 + ГС + d) р. = Vee + М Eq. 20 
-d -d 
In general form, these quantities can be written 
2 
ДІ 
UR o = С ра 4 НК, Ед. 2| 
] 
е Ор Te Ko Eq. 22 
z D 
Vie, = СмР8 Hua koad Eq. 23 
] 
Ming = Cy 5 PD Heme’ KS pd Eq. 24 
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where: g = gravity 
Нео = wave height 
d = depth 


From this point on we must assume that Airy theory applies to be able to complete the 
analysis of wave forces. A check is required to ensure that the conditions do fall within the 
Airy regime. If they do not, the analysis will proceed using Airy theory with a note of caution 
in the results. The literature provides a plot describing the regions of validity for the various 
wave theories using the wave height and the depth. This plot includes the various Stokes’ 
theories and the Cnoidal theory regions. Reading data off of the plot and performing a curve 


fit yields the following criteria for validity of Airy wave theory: 


© щй 0.07 апа Huan < 0.00103 ОНЫ 
и ап О = = з 
се OT v. = ;-00849 Eq. E 


wave 


l р 0.01306 

















d Ше 
;»007 and ——**- « 0.00103 Eq. 26 
14 wave gl 
where: 1 — wave period 
— depth 
ШЕН = wave height. 


If either Eq. 25 or Eq. 26 are valid, then Airy wave theory applies in which case the following 


relations apply: 








1 Ta -2л! 
К = Lann E El To J Eq. 27 
5 | 47414 | еы = Eq. 28 
= COS) = COG — 
9 8\ sinh(4rd/A) T: 1 








RR 1-cosh(27d/ A) Eq. 29 
' ` (2zd!A)sinh(2zd / 4) 
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ша | 44/7 С 
aT 


From Eq. 27 and Eq. 28, the maximum values of the various force and moment components 
can be rewritten and Eq. 21 through Eq. 24 can now be further simplified: 


ы nD? Ед. 21а 
m = С „Ре 4 ЫШ шык 


5 1 Eq. 22a 
b = Cp z PEDH Кол 

Me = р Sd Ед. 23а 
IPE = Pond Eq. 24a 


where К,„ and Kp» according to Airy theory are obtained taking ¢ = -7,,,-/4 and t = 0 
respectively. Depending upon depth, the inertial term is much smaller than the drag term and 
can be neglected. However, calculations should be performed across a wave cycle and the 
maximum combined value used for the assessment. When a wave is moving through the pile 
group, the maximum loading is not on every pile. However, since at some point it will be, the 
lateral capacity for each pile will be reduced accordingly. The moments above will be 
combined with the moment from the lateral load induced by the ship and the lateral load 
induced by the current to determine the maximum allowable lateral load. 

For the purposes of this assessment, the hydrodynamic force coefficients can be approximated 
as seen in Table 4. 


Reynolds Number criteria. -Coeficient 222222 
К. <3 х 10° 
3x10 <R 


R, «2.5 x 10 
2.5 x10 <R, <5 x 10 буү= 2.5 - RETO 
R, > 5x 10 


Table 4. Hydrodynamic coefficients, Cp and См 





The Reynolds number is given by 
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Deco Eq l 
і у 
where: ра = maximum particle velocity 
D = pile diameter 


1.0 x 10° ft’/s, kinematic viscosity seawater 
and Umax 1S given by 


E TH aye? 0 





- 59232 
U max T À jj 
Ag 1s the deep water wavelength 
2 
_ Blume Eq. 33 
mS 
and A, is the local wavelength 
Ра. 2nd 
е at Z | Ед. 34 
27 2» 
where: d = depth 


Since A44 appears on both sides of Eq. 34, it is necessary to solve using a root finding 
algorithm such as Newton-Raphson or by using the following approximation provide by 
Professor D.K.P. Yue, Department of Ocean Engineering, Massachusetts Institute of 


Technology. We need to first determine the wave regime, deeper water or shallower water. Let 


оға 4л?а Ед. 35 








C= 2 
8 ee £ 


we can then use the value of c to determine which approximation to use to find the wave 


number, k. If 


с>2 9 к= (1+2е*+.) Ка. 36 
else, if 
T 
e<2>k= (1401694) Eq. 37 


thus giving a value for A, from the relation for the wave number k 
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Bey, a Eq. 38 


When considering the incident waves upon the moored ship, the lateral force 15 a function of 
the reflection coefficient, wave height, depth, and period. For the depth in which a ship will be 
tied up alongside the pier, the waves will be non-breaking during normal weather. Thus, the 
force 15 due to the increase in hydrostatic head caused by the wave. In extreme circumstances, 


the increase in pressure per linear foot of ship will be 


І 
A ZPuEH ua Ка. 39 
but will more likely be 
1 Н 
ИР а wave Eq. 40 
= 2 PS 3 


and will be neglected since the wave height required to generate any significant force on the 
ship will have to be = 10% of the depth or greater which in a depth of 30-35” is 3-3.5* waves. 


If the seas are this rough, other considerations will prevail for the safe mooring of the vessel. 


5. Dynamic 
Regarding dynamic analysis, Gaythwaite[3] states that “Most waterfront structures can be 


analyzed using static methods...” As stated previously, marine structures, such as piers, are 
designed for high lateral loading and thus, are relatively rigid with natural periods on the order 
of 0.5 seconds or less[3]. Additionally, immersion in water provides damping in addition to 
that inherent in land-based structures. This study covers only those structures immediately 
adjacent to the shore which may be required for operation in a tactical situation. However, 
there may be exceptions such as piers having vertical cantilever piles. Of the two predominant 
contributions to dynamic effects, periodic waves are of the most concern for everyday 
operations. If a wave having a period close to that of the moored ship is incident to the ship, it 
may result in resonant phenomena that will amplify the ships mooring forces on the pier. 
Without an in-depth, on-site analysis, the best that can be done is to approximate the period of 
the pier and compare it with that of the incident waves. Our primary concern is those piers that 


have no cross bracing and no batter piles. Piers of this type can be idealized as a single degree 
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of freedom system with the pilings modeled as cantilever springs and the natural frequency 


estimated using the following: 








Ка Ед. 41 
C, pier LUE... 
nm 
where: Кс = natural frequency of the pier, rad/s, 
m = mass of the pier + a portion of the live load, 
keg = equivalent spring constant 
with keg given by: 
Keg ок. Eq. 42 
where, for a cantilever spring, kn, is given by: 
= = Еа. 43 
Log 
with: E = modulus of elasticity for the piling material, psi, 
E = moment of inertia of the pile, іп“, 
Leg = effective length of the pile, in. 
and for a round pile, 
ста 
4 
where: r = radius of pile, in. 


If the piling has experience damage and has a reduced cross-section, it will be assumed to be a 
rectangular beam whose shape will fit in the remaining pile cross-section. Thus: 
3 
= bh Eq. 45 
2 


where: b = base of the rectangle, in, 
h height of the rectangle, in (taken as the smaller dimension 
in the case of pile damage). 


The period is then found from: 


27 
@ 


Т = Eq. 46 


pier 





n,pier 
Should there be any structures or installed equipment on the pier, this will increase the mass 


and decrease the natural frequency. 
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B. Piles 


Pilings are the primary support for the waterfront structure. The are also the structural 
members most likely to experience damage. During vertical loading they act like a column. 
During lateral loading they can act like a cantilever beam. Thus, one of the most critical 
aspects to a pile is its length. The Naval Facilities Engineering Service Center, formerly Naval 
Civil Engineering Lab, recommends reducing the published ultimate strengths for fir and pine 
pilings that have been treated. However, the values used in this assessment are published 
allowable values and include a factor of safety which should adequately allow for the 


reduction in strength due to treatment while maintaining a conservative capacity estimate. 


1. Fixity 
Fixity is that point ın the soil from which the unsupported length is calculated. Typically, soil 
strength information would be available to calculate this using developed relations. However, 
since this information is unavailable to UCT personnel, some simplifying assumptions are 
required. Gaythwaite[3] states the depth to fixity, Ds usually lies within a range of 3.5 to 8.5 
pile diameters. NAVFAC[6] provides more detailed guidance in the absence of the coefficient 
of sub-grade reaction (EI is the modulus of elasticity to moment of inertia ratio of the pile.): 

Soft, cohesive soils EI < 10x10” psi De = lon 

EI > 10x10" psi D, = 12 ft 





Loose, granular soils & medium, cohesive soils 
El < 10x10’ psi D,=8 ft 
EI > 10x10” psi Dy = 10 ft 

For other cases D, = 5ft. 
The UCT’s possess the capability to perform a Rapid Penetration Test, which is a limited 
near-shore geotechnical survey. The only results from that test that are useful to this 
assessment are those indicating the type of soil present at the site. The type of soils determined 
from the RPT can be correlated directly with the above NAVFAC guidance regarding D; For 
the purposes of this assessment, the RPT results will compare as shown ш Table 5. If RPT test 
results are not available, D; will be assumed to be 8.5 times the pile diameter. Figure 10 


illustrates the concept of depth to fixity. In the case of a batter pile, Dy remains the same. 
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However, the resulting unsupported length is longer than that in the case of the vertical! pile 
since the additional unsupported length for the batter is equal to D/sinO where 0 is the angle 


the pile makes with the vertical. 






МАУЕАС 
Soft, cohesive soils 










КРТ 


Loose, granular soils & 
medium, cohesive soils Loose sand 


Other cases 
Dense sand & gravel 


Table 5. Soil compatability table for Dj. 
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Figure 10. Depth to fixity illustrated. 


2. Vertical 
The pilings supporting the pile behave as columns. The embedded end of the piling is 


considered fixed for the purposes of this assessment. The pile cap end, however, will be 
configured either as pinned or as fixed. The prime difference between the two configurations 
is the presence of cross-bracing in the latter case which restrains the upper end from rotating. 
To determine the unsupported length L,, the distance from the mudline to either the cross- 


bracing, if so configured, or the pile cap is added to D; Leg is dependent upon the end 
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conditions of the pile. For the two configurations looked at in this assessment, Figure 11 


illustrates the end conditions and the corresponding effective lengths, Lep. 


о 


| n 


Figure 11. Bending modes and effective lengths of 2 columns. 


Where this makes a difference as far as this assessment 15 concerned is in computing the 
working stress of the piling. Since the pilings behave as columns, Euler’s formula for critical 


buckling is applicable. This relation is as follows: 





2 
ae = Eq. 47 
Leg 
where: Р. = critical load, lbf, 
E = modulus of elasticity, psi, 
I = moment of inertia, in“, 
Leg = effective length, in. 


This leads to the critical stress: 


P 
a == Eq. 48 
cr 
A 
where: О, = critical stress, psi, 
A = area of cross section, in’. 


The allowable stress is the maximum, or critical, stress reduced by the factor of safety. Once 
this is accomplished, the allowable loading can be determined as follows: 


O 





O = Z Eq. 49 
adi FOS 
where: Са) = allowable stress, psi, 


critical stress, psi, 


Q 
|| 
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FOS = factor of safety. 
However, this value must be compared to published values for allowable stresses before 
proceeding with load calculations. The lesser of the two values, henceforth designated Oan, is 


used in determining allowable axial loading for bearing piles: 


~ 


z D° 


e = 4 


Ou Circular Eq. 50 


= bho, rectangular cross — sections Eq. 50a 


Tsinker discusses a factor of safety for pile loading as follows: 


"The working load on a pile is defined as the ratio of pile ultimate capacity to 
the appropr iate factor of safety. Generally, the safety factor for a single pile, 
2.5 is considered as appropriate. However, where there is a sufficient number 
of pile loading tests, or where a large body of load experience is available, the 
safety factor of 2.0 is normally considered. In cases where the soil 
characteristics are uncertain or large impact or vibratory loads are expected, 
the safety factor of up to 3.0 and more can be considered. For temporary 
structures, depending on site geological condition and pile loading, the factor 
of safety can be reduced to 1.5-2.0.”[1] 
Vertical loading on pilings will be discussed further when developing the assessment 


procedures for pile caps. 


3. Lateral 
The lateral resistance of the structure will be provided by the bearing piles and the batter piles. 


If present, the batter pile capacity in lateral loading far exceeds that of the bearing piles. 
However, both configurations may be encountered and thus are discussed. For bearing pile 
capacity, we look at the maximum moment the pile can be subjected to given the allowable 
stresses for bending as published. If the pile is not braced and merely pinned into the cap, it is 
considered a pinned-fixed column. However, it experiences loading as a cantilever beam. The 
maximum moment for a cantilever beam 15 expressed as: 


нано Eq. 51 


In the case of pilings that are braced, they are considered fixed-fixed and the maximum 


moment experienced due to a load is 
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Given the stress due to bending! 


where 


a 
2 
_M 
вне 


I 
S =—, elasticsection modulus 
С 


3 





bh° 


T for a circular pile 


= — for a rectangular cross — section 


6 


we arrive at a relation between the allowable stress, can, and the induced moments 


Ош p = M bending ship + М wave +M 


+M 


current wind 


which then gives us the allowable lateral loading 





рш = Alo, = ДА М „аг 
eff 
- ie ar _ M 
ш ШЕ ай 4 wave 
І bh _ 
ج‎ 4 Ош Now а = 


-M — for a circular pile — braced 


EV S for a circular pile — pinned 


— 


М те: for a rectan gular cross — section 


Finally, adding in Eq. 17, Eq. 23, and Eq. 24, we have 


3 


4 


" 2 cr пр 1 а а s. 
ЫЙ а r^ San аи Су РЕ 4 пе „Кума D 2 ру 28): ave KpS pd = 22-624 P 
ў тах 


1 zr пр’ 1 2 
= TE Oa s CuPE в + Севр на» Кодой 
eff 


4 


Л 


І bh’ D' 1 2 
=| omg | Сира“ у Huck Sid + СоРвОН,  Кобо 
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тах 


а 72 
-= p,CyAV. 


d 72 
I c 


Eq. 


Eq. 


Eq. 


Eq. 
Eq. 


Eq. 


бә 
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For batter piles, we refer back to Euler’s formula (Eq. 47) and the published allowable stress 


in compression parallel to the grain to find the maximum allowable load on a batter. 
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2 


pile ‚batter ‚lat = 4 C all comp COS Obarer 


Typically, a batter pile can resist lateral load in tension as well as in compression. However, 
detailed knowledge of the soil characteristics are required to conducted a thorough analysis of 
this capacity. Tsinker[1] states that, based upon additional geotechnical information, it is 
customary to assume 2/3. For the purposes of this assessment, the value will be assumed to be 


1/3 that of the axial capacity[7]. 


C. Decking 


The decking, which includes the structural members from the pile cap up, can all be modeled 
as beams. The stringers are modeled as simply supported beams while the pile caps and the 


planking are modeled as continuous beams. 


1. Stringers - Simply Supported Beams 
A simply supported beam is supported at each end and has a single span. It is statically 


determinate and develops a maximum moment for a concentrated load when the load is placed 
at the midpoint. The value of this moment is equal to 


Е: ET Eq. 59 


4 


If a uniform load is present across the entire span, it creates the following moment 


Mo iut Eq. 60 
8 
For distribution of wheel loads to stringers, AASHTO[7] provides an adjustment to the live 


load bending moment for timber plank floors as follows: 


Adj om Е 7 
Y mom 4 


where: S = span of stringers, ft 
The allowable load can now be found in a manner similar to that for the pile in bending using 


Eq 53 
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- ______Убаз ________ штете 5 Eq. 61a 
POE D ве = Û all bend (15) 
| | (bent spacing) Adj pop 3 (bent spacing) Adj op | Eu 
q. 61 
Do S Abe ТЕ 5 
Кл = | шо | 12 Call bend (1b / in) 
Adi nom (bent spacing) S4, (bent раст g) 
where: — stringer base dimension, in 


stringer height dimension, in 
allowable stress, psi 
spacing of bents, in 


h 
Oall bend 
bent spacing 


I n" H I 


The uniform loading can be converted to a psf capacity if we consider tributary loading 
analysis, that is, the stringer carries half the planking span load on either side. Thus, from Eq. 
61b the stringer can carry a uniform load of: 


Р n Б Ед. 62 
uni all tot 7. . . 
Stringer spacıng 


Since a pier will be subjected to various types of point loading such as cargo handling 
equipment and vehicular traffic AASHTO[7] specifications apply. Figure 12 illustrates 
standard types and configurations of truck loading contained therein. The designations include 
either H for a two axle truck or HS for a tractor truck and the gross tons of the truck and 


tractor truck (w/ 1" axle) respectively. 


a. HS Truck Loading 
The variable spacing in Figure 12 for the HS trucks account for the various tractor trucks 


available on the road today. When calculating the moment, the variable spacing, V, is to be 
adjusted from 14-30ft to provide the maximum value of moment. During cargo handling 
operations, trucks will be transiting the length of the pier in both directions. However, fully 
loaded trucks should be transiting in only one direction. Thus, load capacity specifications 


should be similar to those for a single lane bridge as presented by AASHTO[7]. 
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Н 20-44 8.000 LBS. 32.000 LBS 
Н 1544 8000185. 24,000 LBS. 


14-0" 
| W = TOTAL WEIGHT OF Р 


el TRUCK AND LOAD |9 
[0.1 W] [0.4 W| 
| , 
, W = COMBINED WEIGHT ON THE FIRST TWO AXLES WHICH IS THE SAME 
ae ——[ =} AS FOR THE CORRESPONDING M TRUCK 





HS15-44 6000 185 24.000 LBS 24000 185 





V = VARIABLE SPACING — 14 FEET ТО 30 FEET INCLUSIVE SPACING ТО ВЕ 


USED IS THAT WHICH PRODUCES MAXIMUM STRESSES 


CLEARANCE AND 
OAD LANE WIOTH 


CLEARANCE AND 
LOAD LANE WIDTH 





Standard HS Trucks 





Figure 12. AASHTO Truck specifications 


Since the truck will be traveling along the stringers, it is considered a rolling load and thus, 
the maximum moment calculation is more complex. However, Marks’ Standard Handbook 
for Mechanical Engineers’ : provides a solution strategy for this type of loading. For the HS 
trucks with two evenly loaded axles, on a simply supported beam such as stringers, the 


following relation applies: 


үр ais 
Mo. -2(1-2 Ка. 63 
ZE 2 
where: Р = the wheel load, lbs, 
Е = bent spacing, ft, 
a = the spacing between axles. 


There are some practical limitations to this relation. For example if L < a, then the maximum 
moment could be caused by only one wheel load, placed mid-span. Thus, for a range of values 
of L/a, Eq. 59 applies. To determine which equation should be used to give the maximum 


moment, we set Eq. 59 equal to Eq. 63 
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we then get an expression relating L and a 


ДЕ 2 


2-і4%7--0 Eq. 64 
Solving Eq. 64 for L, we have 
a Eq. 65a 
L=| 2 
¿3 272 Eq. 65b 


Of the two solutions, only Eq. 65a applies since Eq. 65b results in a stringer span shorter than 
the axle span. Thus, at a ratio of L/a=1+ V2 /2 = 1.707, the applicable moment equation 
changes. To determine the applicable regimes for each of the equations, a plot illustrates the 


resulting values of each versus the ratio L/a is in Figure 13. From this plot, it is clear that for 


L/a<1.707, Eq. 59 dominates and for L/a > 1.707 , Eq. 63 is applicable. 


Plots of moment equation results vs. L/a 





— 


1 00 110 1 20 1 30 140 150 1 60 1 70 180 190 200 


L/a 
Figure 13. Comparison of moment equation results vs. L/a - HS Loading 
AASHTO specifies that a should be varied from 14-30’ to determine the maximum moment. 
However, observation of Figure 13 reveals that the moment increases with increasing L/a. 
This indicates that the smallest value of a, 14’, should be used when calculating max moment. 


Using Eq. 53 and Eq. 54, we now have 
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bent : 
C SPACE « 1.707 р = A AA E (Ib) Eq. 66 
st all, HS | | all bend 
Эа] г (Бет spacin g} 
bent spacing > 1.707 р E (bent Spacing DsinngerMarnnger™ Eq. 66a 
a stall, HS 7 ay? O all bend (1b) 
3 AdÌ mom (ben spacing — 2 
Letting a = 14, the allowable stringer loading is 
bent spacing < 23.9 OTE Eq. 67 
Ратна = | NO all bend (15) 
З Аа] mom (bent spacin g) 
bent е й 239 (bent spacing Jb... DM Eq. 68 


а s 2 C all bend (15) 


3 Adj пот (bent spacing — 7) 


b. H Truck Loading 
H truck loading differs from HS in that it has loads of different magnitudes on the two axles. 


For H trucks, the axle span is fixed at 14’, thus, for any stringer length less than 14^, the 
maximum moment will occur when the heavy axle is mid-span on the beam and Eq. 6la 
applies. As with the equally loaded axles of the HS trucks, once the value of L exceeds a, or 
14” in this case, the combination of point loads on the span has the potential to produce a 
moment which exceeds that calculated using Eq. 61a. Using Microsoft Excel®, a model was 
developed to calculate the reaction forces and, using Excel® add-in Solver, would iterate the 
moment arm value to find the maximum moment generated in a simply supported beam. Data 
was compiled for various values of L/14 and are displayed in Figure 14. Based upon these 
results, the maximum moment in the beam for L/ a >= 1.93 is a straight line of the form: 
y=mx+b 


thus, after a line fit, we have 
E 
М = (4344752 - 16009 р 
а 


with a = 14, 


М = (0.3103L - 1.6009) P Eq. 69 
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Maximum moment using two methods vs. L/a 





100 120 140 160 180 200 220 240 260 280 3 00 


L/a 


Figure 14. H Loading resulting moments vs. L/a 


Finally, for the maximum allowable load due to an H truck, we have 


bent spacing < 27 2b і 


Stringer’ “stringer E x 70 
P —————À ng (LD) q 
ш 3 AdÎ yon (bent spacing) sui 
bent spacing > 27 Di, ME Eq. 71 


jm = 


A ол Ib 
Ad] nom (1.862(bent spacing) — 9.606 ) аль) 


c. Forklift Loading 
Table 6 is taken from NAVFAC{[4] and provides the maximum wheel loads for a number of 


| 
(Ibs) (ft-in) (ft-in) (Ibs (Ibs 

ET = ни СОЛЕЙ CONNU 
| 16000 | 89 2] $64 | 250 | 15250 | 
| 20,000 | 96 | ш 64 | 250 J| 17500 | 
24000 | — 100 | 64 | 250 | 22150 &— 
| 30000 | 109 | 66 | 300 | 2500 - 
| 40000 | 100 | | 80 | 250 | 49000 | 


Table 6. Forklift wheel loads and dimensions. 
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different sized forklifts. As can be seen, the minimum spacing of wheels occurs with the front 
wheels which are also equally, and the heaviest, loaded. Therefore, when checking for forklift 
capacity on the pier, Eq. 66 and Eq. 66a can be used with the appropriate value of Wheel 


spacing inserted for a. 


d. Crane Loading 
Appendix D contains the load data[4] on a number of mobile cranes. The outrigger loads 


therein can be considered as either point loads or uniform loads if reduced by the outrigger 
area. The program will provide maximum loading capacity for stringers and pile caps. It is left 


up to the on-site personnel to enter the tables and determine the maximum crane loading. 


e. Stringers - A Final Note 
All of the analysis regarding stringers has been conducted under the assumption that, as the 


loaded truck transits the pier, a stringer will have to bear a single wheel load from each axle. 
This assumption is fairly safe given that the wheel spacing on both trucks and forklifts is 6’ or 
larger and the span on point loads for cranes is larger still. Should the stringer spacing exceed 
6’, the above analysis may be less accurate. However, for timber piers, the stringer spacing is 
usually well within the range considered. Additionally, as the stringer spacing increases, the 
planking load carrying ability will begin to dominate before the above analysis begins to break 


down. 


2. Continuous Beams 
Continuous beams *...[have] two or more spans (i.e., three or more supports) and is statically 


indeterminate." The EIT Reference manual provides a method for determining the reactions 
on continuous beams using the three-moment equation. When analyzing a beam with more 
than two spans, the equation must be used with three adjacent supports at a time, starting with 
a support whose moment is known.[13] For a pile cap, this is the end where the moment is 
zero. In the most general form, the three moment equation can be used with beams of varying 
cross-section and looks like 


МА ам | Маа. ала, ААВ Eq. 72 
1, 1, L... Leg LL, Lati 
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However, for beams of constant cross-section, such as pile caps and planking, the moment of 


inertia terms can be eliminated leaving 


A,a à fe] Eq. 73 
L, Lo. 


M, L, +2М [1 E Ly |+ ИЕ 4 


Figure 15 illustrates the terms present in Eq. 73. To analyze the continuous beam 
configuration, a Microsoft Excel® model was developed that include 8 supports, 7 spans. This 
model resulted in a system of k-] equations with k-J] unknowns. Unit loads representing 
vehicle axle loads were “placed” on the beam and the equations were solved using the Excel® 
add-in Solver. In this way, the percentage of the axle load carried by a particular support could 
be calculated. The maximum moment is calculated as well. A sample results screen can be 


seen in Figure 16. 





Аа = Ab = FL*/16 


F > load at midspan 





Аа = Ab = wL'/24 


L distributed load, 
PARAR SR a б 


Аа = Ес(12-с2у6 





Ab = Fd(L2-d2y6 





E 


EA ==, asymmetrical load 
Figure 15. Simplified Three-Moment Equation Terms[13] 
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М 0.000 0.036 -0.145 -0.820 -0.146 0.039 -0.010 0.000 
0.5 0.5 





Ю 0.004 -0.022 0.101 0.835 0.101 -0.023 0.006 -0.001 


Figure 16. Three-moment equation model output 


a. Pile Caps 


The three-moment equation model was used to evaluate the impact of pile spacing on the 


loading of the pile cap. Figure 17 and Figure 18 illustrate the effects of increasing the pile 


spacing from 6’ to 10’. As can be seen, and as expected, the moment and shear increase. 


% of Axle Load 


Shear and Moment Diagram - Continuous Beam 

40% 
30% - 
20% - 
10% - 
0% - 
-10% + 
-20% + 


| 
-30% - 





40% + 


-50% - 


Figure 17. Shear-Moment diagram: Pile spacing - 6'; Axle - centered 
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Shear and Moment Diagram - Continuous Beam 


% of Axle Load 





-100% - 
Figure 18. Shear-Moment diagram: Pile spacing - 10'; Axle - centered 


Data was collected on the maximum values as the axle position was varied over the support 
and across the beam. For example, the loads were placed in such a way as to model one wheel 
load resting directly over a support while the other extends 6” into the span. (6” is the standard 
axle width considered in design) The calculations were run and the resulting maximum 
moments and support loadings recorded. This operation was performed for a number of 
variations of pile spacing and axle placement. A curve was then fit to the collected data 
providing the maximum moment in the pile cap as a function of the pile spacing and the axle 


load applied 


- pile spacing 


- pile spacing | 
M... = - 124.02 + 2391 -е 55 j + 1692341 e 3203 ) Р Eq. 74 








Combining Eq. 74 with Eq. 53, we obtain the maximum allowable axle loading for the pile 


cap. The maximum wheel load would be half of this value. 


2 
OD mik cap Eq. 75 


ie 


all cap | - pile spacing 


— pile spacing 
d|- 124.02 + 0239 1 -e 15 ] + 169.23 1- "EET | 





52 





The data regarding maximum support loading indicates what percentage of an axle load 15 
transferred to the individual piles. When a curve is fit to the data, and the resulting expression 


combined with that of allowable loading, P,, — 40,,, the maximum allowable axle load on 
the pile cap as limited by the pile is given as follows 


pile cross sec tion Ош comp, pile 


- dead load Ед: 70 


сараї рів 7” - pile spacing 


- pile spacing 
- 134.02 + 21363 1 -е 2598 J + 22.3631 -e 13116 ) 








where the numerator is the applicable expression from Eq. 50, Eq. 50a. It is unlikely that the 
pile will be the limiting factor on pile cap loading, but in the case of a damaged pile, Eq. 76 
may apply. 

When the model results for maximum moment due to uniform loading are evaluated and fit to 
a curve, we have 


M =0.1056337LW Eq. 77 


which when combined with Eq. 53 and the tributary area of a pile cap, which is equal to the 


bent spacing, gives us the maximum allowable uniform loading on the pile caps 


_ Ж ит тн Еа. 78 
= і ‚ү Сал bend 
6 -0.105633 8( pile spacing (bent spacing) 


Wat 


If a pile is severely damaged or missing, the pile cap will span twice the pile spacing making it 
susceptible to increased moments. This situation can be modeled using the three-moment 
equation with the assumption that only a single pile will be missing from a bent. The model 
was evaluated with the missing pile first being placed in the middle of the bent. It was then 
moved to a position next to an exterior pile. The maximum moments transferred to the pile 
cap occurred in the latter case and it is this equation that will be used to determine the 
maximum point load on a pile cap with a pile missing. 

Fu = Pc te у ali bend Ed 

6-0.261 69 pile spacing) | 

The resulting maximum uniform loading was evaluated in the same fashion with the 


following result 
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pape) aa” Eq. 80 
Й у 25%, 
6-0.1996 ( pile spacing (bent spacing) | 
The previous discussion focused on an interior pile being severely damaged or missing. If this 
is the case with an exterior pile, the pile cap and loading is treated as a simple cantilever beam 
with either point loading or uniform loading which creates a moment. The following relations 


apply. 


2 
" bre am cap Eq 5 8 1 
ве | N all bene 
6 ( pile spacing} 


2 
2 Dore LE cap Eq. 82 


W, = 
“ ó [ pile spacing) [bent spacing } k 


b. Planking 
The deck planking is also modeled as a continuous beam. As such, the three moment equation 


model is useful in determining allowable loading. However, for the planking, as with the 
stringers, wheel loads were analyzed instead of axle loadings. This is because of the relative 
sizes of the wheel, the wheel loading area, and the stringer spacing, which is the planking 
span. Additionally, since the plank dimensions and the wheel dimensions are of the same 
order, the loading is better represented as a uniform load instead of a point load. Eq. 77 and 
Eq. 78 apply to this situation using stringer spacing (in) instead of pile spacing and plank 


width in place of bent spacing. 


2 
брате Прат _ x Eq. 83 
0.6336 (stringer граста b En | ue 


all 
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VI. Rapid Structural Assessment- Pier 


Rapid Structural Assessment - Pier, or RSAP for short, is written in the C programming 
language (for code, see Appendix E). It is compiled on a PC to run in Windows 16-bit mode. 
The code is basic enough, however, that with a few minor changes, the program can run on a 
DOS platform. Additionally, portability to other platforms, such as UNIX, has been 
considered, and with a few changes, RSAP can be easily ported. However, the end users of 
this program, the UCTs, are using portable PCs in the field and thus, this program was 
customized to that end. The interface presents the user with simple query screens that prompt 
the user for data input. Once all of the inspection data has been entered, the user has the 
option to view the results on-screen, make changes, or pull up a previously entered file. When 
the user exits the program, the inspection data and the assessment results are printed to a text 
file that can be easily viewed with any word processor or text editor. Additionally, a script file 
is generated that can be run in MATLAB® which will provide graphical representation, such 
as that in Figure 19 of the assessment results. Included in the results section of the report are 
uniform loading and concentrated loading capacities for the inspected pier. The results will 
also identify various sized equipment such as forklifts, trucks, and containers that can be 


placed on the pier. 


Plot of Point Loading Capacity(Ibs) - Based upon Pile Locations 


Plot of Uniform Loading Capacity(psi) 
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Figure 19. Sample MATLAB Output 
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VII. Conclusion 


Now that we have calculated the allowable uniform capacity and concentrated load capacity 
for the main structural elements, we can establish the load capacity for the pier. In the case of 
the decking, the values will remain constant throughout. With the piles, however, the capacity 
will decrease as we move seaward on the pier due to the longer piles in deeper water. This 
may factor in to the ultimate pier capacity. If so, the results will reflect this because it is 
possible for a ship to off-load at various locations on a pier. If the lower value of capacity for 
the longer piles were established for the whole pier, it may unnecessarily restrict use of an 
otherwise capable pier. For the other three structural members, the lessor value will prevail as 
the load capacity for those members. This value will require adjustment for the dead load 
before we have our assessed capacity in the vertical direction. 

We have also determined the allowable capacity in the lateral direction. After adjusting for 
environmental loads, we can determine the loading capacity per linear foot of pier that a ship 
may impose. With unit values for the various environmental loadings, an approximate ship 
size can be evaluated for safe berth at the pier. 

The UCT’s inspect piers that are being considered for use in tactical operations. They can 
usually perform an inspection on an average-sized pier in days. The results of their inspection, 
however, provide them no indication of the piers load carrying capability. This prevents the 
pier from being considered for any type of combat operation. RSAP enables the UCT 
inspection team obtain an estimate of the piers structural capacity. 

Throughout the development of this assessment, all analytical calculations have been reduced 
to variables, or inputs, that are part of the inspection results already, or easily collectible on- 
site. Additionally, the assessment has been established using the guidelines for design of 
marine waterfront structures. When portions of the assessment were not readily quantifiable, 
assumptions were made that tended toward conservative, thus ensuring that the results would 
be within an acceptable range. This will enable a rapid, reliable, assessment of any timber pier 


being considered for tactical operations. 
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Appendix A - Levels of Inspection 


3.3.1 Levels of Inspection 

Three basic types or levels of inspection are used for inspecting marine facilities. They are 
distinguished by the resources and preparation needed to do the work and the type of 
damage/defect that is detectable, as: 


* Level I - General Visual Inspection. The Level I effort can confirm as-built structural plans 
and detect obvious major damage or deterioration due to over-stress (collisions, ice), severe 
corrosion, or extensive biological growth and attack. This type of inspection does not involve 
cleaning of any structural elements and can therefore be conducted much more rapidly than 
the other types of inspections. The Level I effort is essentially a general inspection “swim-by” 
overview. It does not involve cleaning of structural elements, which allows the inspection to 
be conducted rapidly. The underwater inspector relies primarily on visual and/or tactile 
observations (depending on water clarity) to make condition assessments. These observations 
are made over the specified exterior surface area of the underwater structure, whether it is a 
quaywall, bulkhead, seawall, pile, or mooring. Although this is an overview, close attention 
should be given to confirming or providing information to update available facility drawings 
and condition evaluations. 


o Level II - Close-Up Visual Inspection. Level II efforts are complete, detailed investigations 
of selected components or sub-components, or critical areas of the structure, directed toward 
detecting and describing damaged or deteriorated areas that may be hidden by surface bio- 
fouling. Limited deterioration measurements are obtained. These data are sufficient for gross 
estimates of facility load capability. This type of inspection will generally involve prior or 
concurrent cleaning of part of the structural elements. Since cleaning is time consuming, it is 
generally restricted to areas that are critical or that may be typical of the entire structure. 
Simple instruments such as calipers and measuring scales are commonly used to take physical 
measurements. Subjective judgments of structural integrity are occasionally made by probing 
wood with ice picks and by pounding concrete with hammers. 


* Level III - Highly Detailed Inspection. This level of inspection is primarily designed to 
provide data that can be used to perform a structural assessment and will often require the use 
of Nondestructive Testing (NDT) techniques. The procedures are conducted to detect hidden 
or imminent damage. The training, cleaning, and testing requirements will vary depending on 
the type of damage/defect that is to be investigated and the type of inspection equipment to be 
used. In some cases, Level III inspections will require the use of partially destructive 
techniques such as sample coring in wood or concrete, material sampling, and in-situ surface 
hardness. The use of Level III inspection techniques is usually limited to key structural areas 
that may be suspect, or to structural areas that may be representative of the overall structure. 
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UNDERWATER INSPECTION PROCEDURES 


Appendix B - Pile Inspection Record 


('sdunew jo uoneuejdxo 10J p[-c£ риє є|-Є 591п814 229) "щ1о) 110doa1 uoroodsut opid piepugig ‘51-6 элп81 


| 





| 








SLN3WWNOI 


нтаза ‘ON ‘ON 
JSVWVd 40 SNOISNAWIO зопуо 39VWVO 3dAL NOLLIQNOO 3 ald 1N38 


3QU. - H1d3Q 39 vno » Wniva WOud 39VWVO 3O HLd30 EM 1 Ама зо зми ніаза наїум 


5: LlIITIA 
|. 


зазчомоо п 13315 D чат п 13305 0 3939433 9  омнуз8 0 
азонозман имам 31d 3dAL ала 'ON/3WVN Y3ld 
5налма ауа NOILVIO1 


омооза моцозазм а па 


135 


59 





Appendix C - Pile Condition Ratings for Timber Piles 
UNDERWATER INSPECTION PROCEDURES 


Timber Pile 
Condition 
Rating Explanation 


NI Not inspected, inaccessible or passed by 


Е ND No defects: 
КЕО5ОТЕО cM] ] : 
OUTER SHELL ess than 5% lost material 

- sound surface material 

- no evidence of borer damage 


Minor Defects: 
- 5 to 10% lost material 
- sound surface material 
- no evidence of borer damage 
- minor abrasion damage 


Moderate Defects: 
- 15 to 45% lost material 
- significant loss of outer shell raaterial 
- evidence of borer damage 
- significant abrasion damage 


Major Defects: 
- 45 to 7596 lost material 
- significant loss of outer shell and 
interior material 
evidence of severe borer damage 
severe abrasion damage 


Severe Defects 
- more than 75% lost material 
- no remaining structural strength 
- severe borer damage 





Figure 3-14. 
Explanation of pile condition ratings for timber piles. 
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Appendix D - Crane Loading Data Charts 


6] 





SO-TON TRUCK CRANE 





1. DATA SHOWN FOR OUTRIGGER FLOAT 
LOAOS ARE FOR OVER SIOE ANO OVER 
REAR LIFTS. FOR OVER FRONT LIFTS. 
A FRONT BUMPER FLOAT IS REQUIREO. 


повне є 2. BOOM ISOVER THE CORNER FOR WHICH 
2.2'x2.2" ; 

FLOAT AREA FLOAT LOAO IS GIVEN. 

4.69 SQ. FT. A FOR EQUAL RAO!!, RATEO LOADS VARY 


ACCORDING TO BOOM LENGTH, 





FLOAT 3 FLOAT 4 


PLAN — OUTRIGGERS EXTENDED 














CRANE TRAVELING — RUBBER TIRE WHEEL LOADS (LBS) 


TIRES BOOM EACH EACH EACH EACH 
LENGTH FRONT REAR FRONT REAR 
SIZE (FT.) SINGLE TIRE | DUALTIRE | SINGLE TIRE | DUALTIRE 





12 1400-2 40 — | 107,566 | 5,024 | 21,868 | 10,64 | 16727 _ 


OUTRIGGER FLOAT LOADS (LBS) 


RATED 
LOAD RADIUS арат. FLOAT NUMBER 
(LBS.) (FT.) (ЕТ. 


100,000 
59,800 
46,700 
30,700 
22,900 
17,700 
14,500 

1,800 
9,700 
8,050 
6,750 
5,550 
4,550 
4,150 
3,900 


FIGURE 9 


107,000 
107, 000 
101 ‚700 
89,100 
86,700 
83,500 


50-Ton Truck Crane Loadings 


25.1-27 
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84 500 
84.500 
80,300 
71,000 
68,500 
65,900 


65,900 








TO-TON TRUCK CRANE 





CRANE TRAVELING — BOOM OVER FRONT 


FLOAT 2 FLOAT 1 1. DATA SHOWN FOR OUTRIGGER FLOAT 
4-6. „є LOADS ARE FOR OVER SIDE AND OVER 
REAR LIFTS. FOR OVER FRONT LIFTS, 
A FRONT BUMPER FLOAT IS REQUIRED. 


2. BOOM IS OVER THE CORNER FOR WHICH 
FLOAT LOAD IS GIVEN. 


3. FOR EQUAL RADII, RATED LOADS VARY 
ACCORDING TO BOOM LENGTH. 





FLOAT SIZE - 
7.2” х 27.2” © 
FLOATAREA “ 


4.69 SQ. FT. 


FLOAT 3 FLOAT 4 


PLAN — OUTRIGGERS EXTENDED 













CRANE TRAVELING — RUBBER TIRE WHEEL LOADS (LBS) 


TIRES BOOM EACH EACH EACH EACH 
LENGTH FRONT REAR FRONT REAR 
NO. SIZE (FT.) 





SINGLE TIRE j| DUAL TIRE | SINGLE TIRE DUAL TIRE 


12 14.00-20| 40 | 14,580 | 4,683 | 23,963 | 12,780 | 15,865 — 


OUTRIGGER FLOAT LOADS (LBS) 


RATED 
LOAD RADIUS en FLOAT NUMBER 
(LBS.) (FT.) (ЕТ.) 


140,000 
107,000 
59,100 
37,300 
27,800 
21,500 
17,100 
14,000 
11,500 
9,550 
8,150 
6,800 
5 600 
4,600 
3,650 
3,400 
3,150 
2,900 


121,000 
12 1,000 
100,400 


FIGURE 10 


145,500 
145,500 
120,800 
104,800 

98,200 


70-Ton Truck Crane Loadings 


2991528 
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115,000 
115,000 
95,500 
82,800 
77,600 








90-TON TRUCK CRANE 





FLOAT 2 dar: 1. DATA SHOWN FOR OUTRIGGER FLOAT 
Ж LOADS ARE FOR OVER SIDE AND OVER 
REAR LIFTS. FOR OVER FRONT LIFTS. 
A FRONT BUMPER FLOAT IS REQUIRED. 
2. BOOM IS OVER THE CORNER FOR WHICH 
FLOAT LOAD IS GIVEN. 


3. FOR EQUAL RADII, RATED LOADS VARY 
ACCORDING TO BOOM LENGTH. 





FLOAT SIZE 


lo " 


22"x2.2 


FLOAT AREA š: 
4.69 SQ. FT. . 


PLAN — OUTRIGGERS EXTENDED 








CRANE TRAVELING — RUBBER TIRE WHEEL LOADS (LBS) 





BOOM OVER FRONT BOOM OVER REAR 
TIRES EACH EACH EACH EACH 
FRONT REAR FRONT REAR 
NO. SIZE SINGLE TIRE | DUALTIRE | SINGLE TIRE | DUAL TIRE 


(12 1400244 50 j 136,789 | 6107 | 28091 | 12,15 | 22,085 | 


OUTRIGGER FLOAT LOADS (LBS) 


R 
RADIUS 5-54-46 FLOAT NUMBE 
(FT.) (FT.) 


RATED 
LOAD 


(LBS.) 


180,000 
125,000 
71,800 
46,200 
33,500 
25,900 
20,700 
16,900 
14,000 
11,600 
9,700 
8,350 
7,000 
5 750 
4,700 
4,400 
4,200 
3,950 
3,600 
3,300 





133,500 
133,500 
114,800 
100, 100 
93.450 


FIGURE 11 
90-Ton Truck Crane Loadings 


2511-29 
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180,500 
180,500 
155,200 
135,400 
126,350 


126,350 






130,900 













126,500 
126,500 
108.800 
94900 
88,550 





115- TON TRUCK CRANE 





CRANE TRAVELING — BOOM OVER FRONT 


FLOAT 2 Moari 1. DATA SHOWN FOR OUTRIGGER FLOAT 
D LOADS ARE FOR OVER SIDE AND OVER 
FLOAT SIZE м 
2.2” x 2-2” "e 
FLOAT AREA 
4.08 SQ. FT. - 





REAR LIFTS. FOR OVER FRONT LIFTS, 
A FRONT BUMPER FLOAT IS REQUIRED. 
2. BOOM IS OVER THE CORNER FOR WHICH 
FLOAT LOAD IS GIVEN. 
34 FOR EQUAL RADII, RATEO LOADS VARY 
ACOORDING TO BOOM LENGTH. 


PLAN — OUTRIGGERS EXTENDED 













CRANE TRAVELING — RUBBER TIRE WHEEL LOADS (LBS) 





TIRES EACH EACH EACH EACH 
СЕКСТИ FRONT REAR FRONT REAR 
SIZE (FT.) SINGLE TIRE DUAL TIRE SINGLE TIRE DUAL TIRE 


Cie acoso] isso ава 36,277 | 15,518 — 


OUTRIGGER FLOAT LOADS (LBS) 


RATED 
LOAD RADIUS LENGTH FLOAT NUMBER 
(LBS.) (ЕТ. (ЕТ.) 


185,000 
185,000 
138,800 
118,400 
111,000 








111,000 ; 144,900 
FIGURE 12 
115-Топ Truck Crane Loadings 
25.1-30 
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140-TON TRUCK CRANE 





1. DATA SHOWN FOR OUTRIGGER FLOAT 
LOADS ARE FOR OVER SIDE ANO OVER 
REAR LIFTS. FOR OVER FRONT LIFTS, 
A FRONT BUMPER FLOAT IS REQUIRED. 


FLOAT SIZ 

oe 5 Er 2. BOOM IS OVER THE CORNER FOR WHICH 
| ү FLOAT LOAD IS GIVEN. 

FLOAT AREA 

4.69 SQ. FT. 3. FOR EQUAL RADII, RATEO LOADS VARY 


ACCOROING TO BOOM LENGTH. 





PLAN — OUTRIGGERS EXTENDED 














CRANE TRAVELING — RUBBER TIRE WHEEL LOADS (LBS) 
| | ВООМОУЕНВЕАОМТ | BOOM OVER REAR | 





TIRES EACH EACH EACH EACH 
FRONT REAR FRONT REAR 
NO. SIZE SINGLE TIRE | OUALTIRE | SINGLE TIRE | DUAL TIRE 


12 1400-24] 50 | 168,821 | 671 | 35,494 | 13,759 | 28,447 | 


OUTRIGGER FLOAT LOADS (LBS) 


RATED 
LOAD RADIUS Em FLOAT NUMBER 
(LBS.) (FT.) (FT.) 


280,000 172,500 

138, 360 |72, 500 

114,400 16 3,900 
74,900 146,600 
55,100 133, TOO 
43,400 ІЗІ, "100 
35,100 


} 


131,100 | 171,500 





FIGURE 13 
140-Ton Truck Crane Loadings 
25.1-31 


66 





Appendix E - Program Listing 
/* (C)1999 All rights reserved - К. J. Keiter */ 


#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
#include <math.h> 
#include <ctype.h> 
#include <dos.h> 
#include <conio.h> 
#include <time.h> 
#include <io.h> 
Hinclude <fentl.h> 
#include <process.h> 
#include <sys\stat.h> 


#define PI 3.141592654 
#define GV 32.174 
#define MIN_FOS 1.5 
#define MAX_FOS 5.0 
#дебпе Н20 КС 64.0 


ЕЕ А ДА О ДАЉ А ЖЖ КЖ ЖЖ ЖЖ ЖК 


typedef struct _pile Pile; 

struct pile 

{ 
char id let[3]; 
double diameter; 
double length mud to cap; 
double unsup length; 
double eff length; 
char condition[3]; 
int flag; 
double vert load; 
double uni load psi; 
double lat load; 
double dead load; 
double spring, cap; 
double load area; 
double pile weight; 
Pile *next; 
Pile *prev; 


y 


typedef struct _bent Bent; 


struct _bent 

{ 
int id_num; 
double depth; 
double freeboard; 


double pile_length; 
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double brace 2 cap; 
double pile length tot; 
double spring tot; 
double weight tot; 
double dead wt per pile; 
double dead wt; 
double dead temp; 
double load area; 
double lat cap; 

char batters; 

Pile “pile: 

Bent *next; 


he 


typedef struct props Props; 

Struct props 

{ 
double bending mod; 
double sig pub comp; 
double sig pub bend; 
double unit wt; 
char tim type[25]; 

і; 


typedef struct loads Load; 
struct loads 
{ 
char fork_lim_5; 
char fork_lim_6; 
char fork_lim_75; 
char fork_lim_ 8; 
char fork_lim_10; 
char fork_lim_ 12; 
char fork_lim_15; 
char fork_lim_20; 
double hs limit wheel str; 
double h limit wheel str; 
double string pt lim; 
double string uni lim psi; 
double axle lim cap; 
double cap pt lim; 
double cap uni lim psi; 
double plank uni lim psi; 
double pile pt miss; 
double pile uni miss; 
double pile uni min; 
double pile pt miss end; 
double pile uni miss end; 


j. 


typedef struct _env_data Env; 
struct _env_data 


{ 
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j; 


double wind_spd; 
double wind spd ht; 
double wind 10; 

double wind angle; 
double wind angle deg; 
double current spd; 
double current angle; 
double current angle deg; 
double current pile CD; 
double current Re; 
double fouling factor; 
char soil type[25]; 

int soil flag; 


typedef struct wave data Wave; 
struct wave data 


{ 


D 


double wave H; 

double wave T; 

double wave d; 

double wave angle; 
double wave angle deg; 
double wave Re; 

double wave k; 

double wave c; 

double wave Ki max; 
double wave KD max; 
double wave Si; 

double wave SD; 
double lambda A; 
double lambda 0; 
double wave umax; 
double wave CD; 
double wave CM; 
double wave M max d; 
char wave Airy; 


typedef struct batters Batters; 
struct batters 


{ 


H 


char batters; 

double batter size; 
double batter rise; 
double batter run; 
double batter angle; 
double batter angle deg; 


typedef struct. sup struct Sup struct; 
struct. sup struct 


{ 
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Props *sup_struct_prop; 
char cap_type; 

double cap_ht; 

double cap_w; 

double cap_wt; 

double string spread; 
double string ht; 
double string w; 
double string wt; 
double string wt bent; 
double plank ht; 
double plank w; 
double plank wt; 

char bracing; 


J. 


typedefstruct flagz Flagz; 
struct _flagz 
{ 
char flag; 
ints flag; 
intt flag; 
int flag]; 
int flag2; 
int flag3; 
int flag4; 
int flag5; 
J; 


typedef struct _pier_forces Force; 
struct pier forces 
{ 
double wind; 
double wind_x; 
double wind_70; 
double current_ship; 
double current ship x; 
double current pier M; 
double current pier M x; 
double wave M max d; 
double wave M x d; 


li 


typedefstruct ship data Ship; 
struct ship data 
{ 

double length; 

double Cl; 

double C2; 

double draft; 

double freeboard; 

double force_tot; 
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typedef struct _pier_data PierData; 

struct _pier_data 

{ 
int no_of_bents; 
int piles_per_bent; 
int ship; 
double factor_of_safety; 
double pile_size; 
double fixity; 
double bent_spread; 
double pile_spread; 
double pier_length; 
double pier_width; 
double spring tot; 
double weight tot; 
double pier period; 
double lat cap; 
doublelat cap per ft; 
double est ton ship; 
double pile uni min; 
Props *pile prop; 
Force "forces; 
Load *loads; 
Env *env data; 
Bent *bents; 

Wave *wave data; 

Sup struct *sup struct; 
Batters *batters; 
Ship *ship data; 

}; 


ДАЉЕ А exe ooo Е А А АД ДА ДА ДА А ДА ДАЉА ДЈ А ДАЉА) 


void clean(void); 

void open_msg(void); 

void exit_msg(Flagz *); 

void file_msg(Flagz *); 

void t_check(PierData *, Flagz *); 
void date_plot(FILE *); 

void pause(void); 

void put_date(void); 

void menu (void); 

void get_pier_data(PierData *); 

void get_ship_data(PierData *); 

void get prop info(Props *, int); 

void get bent info(PierData *); 

void get pile info(Bent *, PierData *); 
void get cond(Bent *, Pile *, PierData *, int); 
void get env info(PierData *); 

void get soil info(Env *); 

void get load info(PierData *); 

void prn to screen(void); 


el 





void pile_plot(PierData *, char); 
void prt err(char[35]); 

void prt inv(void); 

char prn to file(PierData *, Flagz *); 
int quit(char); 

int test input int(int); 

int check. num(void); 

double test input double(double); 
double is valid(double, double); 
double test input(int, double); 

char check fork(double, double, PierData *); 


ЕЕЕ AC Eo LEES РЕЖЕ ЕЕК ЖЖ, 


int main(void) 


{ 


menu(); 
return(0); 


} 


Е СЖ Е ТЕК ЕЕК ЕЕ Ех | 


void menu (void) 


{ 


char choice = '0'; 
PierData *input; 
Flagz *flagz; 


put_date(); 

open msg(); 

clean(); 

input — calloc(1,sizeof(PierData)); 


if(input == NULL) 
( 


} 


prt_err("PierData"); 


flagz = calloc(1 ,sizeof(Flagz)); 
if(flagz == NULL) 


prt_err("Flags"); 
} 


while(choice !='3') 
{ 
clean(); 
flagz->flag = 'Q'; 
printf("\n\n\t\\tRSAP - Rapid Structural Assessment, Pier v1.0"); 
printf("\n\n\t\t\tDisplay File Menu"); 
printf("\n\n\t\t\t1) Input Inspection Data"); 
printf("\n\t\t\t2) Display File"); 
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printf("\n\t\t\t3) Exit"); 
printf("\n\n\t\t\tEnter selection: "); 
choice = getche(); 


switch(choice) 
{ 
case '1': 
fflush(stdin); 
clean(); 


t check(input, flagz); 

get pier data(input); 

flagz->t_flag = 1; 

flagz->flag = prn_to_file(input, flagz); 
flagz->flag] = 1; 

break; 


case 2: 
fflush(stdin); 
clean(); 
prn_to_screen(); 
break; 


Басе 3 
if(flagz->flag] == 1||flagz->flag4 == 1) 
{ 


fflush(stdin); 

flagz-^t flag = 0; 

flagz->flag = prn_to_file(input, flagz); 
exit msg(flagz); 


choice = '3'; 
} 
else 
{ 
fflush(stdin); 
exit_msg(flagz); 
choice 7 '3* 
j 
break; 
default: 
printf("\n\n\tInput should be 1,2,3,..."); 
prt inv(); 
break; 
j 
j 
free(input); 


j 


[ЖЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ Е / 


void open_msg(void) 
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} 


printf(""\n\n\n\tWelcome to RSAP - Rapid Structural Assessment, Pier. This"); 
printf("\n\tprogram provides a means for rapidly estimating the capacity”); 
printf("\n\tof a timber, open, pile supported pier. Jt requires input that"); 
printf("\n\tis gathered by the US Navy Underwater Construction Teams during”); 
printf("\n\ta waterfront inspection. When prompted for input regarding"); 
printf("\n\tmeasurements, pay close attention to what is being asked for."); 
printf("\n\tWhen entering dimension information, the height and width are"); 
printf("intthe vertical and horizontal dimensions of the member as it is"); 
printf("\n\tplaced. For example, planking is layed on its wide side. Thus"); 
printf("\n\tthe \"height\" is the narrow dimension. When prompted to select"); 
printf("\n\tfrom a list of choices, you need only enter the choice. You do"); 
printf("\n\tNOT need to press \"enter\" after selecting your choice. "); 
printf("\n"); 

printf("\n\t\(C)1999 - All rights reserved. R. J. Keiter"); 
printf("\n\n\t\Questions? Problems? Contact me at: rjkeiter@iname.com"); 
printf("\n"); 

printf("\n"); 

pause(); 


Е Е ЕЖЕ ЖЕ ЖЖ ЖЖ КЕ ДА ДА ДАДА ДА ДЕДА, 


void exit_msg(Flagz *flagz) 


{ 


} 


clean(); 

printf("\n"); 

printf("\n\tThank you for using RSAP - Rapid Structural Assessment, Pier."); 
printf("\n\n"); 

file msg(flagz); 


ДАЉА ДА ДА ЕЕК ЖК ЖЖ ЖЖ ЖЕН / 


void file_msg(Flagz *flagz) 


char filez[3][13]; 
int 1, J; 


fflush(stdin); 
printf("\n"); 


if(flagz->flag !='Q') 
{ 


strcpy(filez[0],"pile inO.dat"); 
j=l; 


if(flagz->s_flag == 1) 
{ 
strepy(filez[1],"pil_plt0.m"); 
strcpy(filez[2],"uni_plt0.m")}; 


173; 
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} 


printf("\n\tThe following file(s) have been saved to your "); 
printf(" working directory:"); 


printf("\n"); 
О +) 
{ 
filez[i}[7] = flagz->flag; 
printf("\n\t\t\t%s", filez[i]); 
} 
} 
printf("\n\n"); 
pause(); 


E EOE E OE E E E E O E OE OC E E E E E E E E E E E E E FE E E FE EF E E K E E IK K EK E Kk E E E k k K / 


void t_check(PierData *input, Flagz *flagz) 


{ 


} 


срагу п; 
if(flagz->flag] == 1) 
( 
printf("\n\n\tDo you wish to save the data you have"); 
printf(" already input(y/n)? "); 
y_n = getche(); 


while(y_n !2 у&&у п (= Ү'&&у п != 'п&&у п != №) 


{ 
prt_inv(); 
printf("\n\n\tDo you wish to save your data (y/n)?: "); 
y_n = getche(); 

} 


ча — y n 1 


flagz->t_flag = 0; 
flagz->flag = prn_to_file(input, flagz); 
file_msg(flagz); 

} 


JE 3F 3K SR 2k OR E K OE E FOR OR OR SE OR OR OR OR OR ЕЕ R OF OR OR OR OR OE R OR OR E OR ORO E E EEE EE EEE REE EE / 


void get pier data(PierData *Input) 


{ 


Wave *wtemp; 

Force *ftemp; 

char batters, cap_type, bracing, choice, choicel, f_o_str[20]; 

double batter_rise_ft, batter_run_ft, bent_spread_ft, pile_spread_ft; 
double batter run in, bent spread in, batter rise in, pile spread in; 
double str spr ft,str spr in, CD ship ^ 1.0, bio Re, c speed; 
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double f_o s=0,j=0,I_pile, El_pile, t, theta, gamma, wave Ki, wave KD; 
double cwtemp, wave_Mi, wave_Mia, wave_Mib, wave_Mic; 

double wave_MD, wave_MDa, wave_MDb, wave_MDc; 

int 1; 


clean(); 

get_env_info(Input); 

clean(); 

wtemp = Input->wave_data; 

ftemp = Input->forces; 

printf("\n\tEnter the factor of safety you"); 
printf("\n\twish to use (recommended: 3, min"); 
printf(" = %.21f): ", MIN_FOS); 

scanf(" Vos", &f o str); 


while(j « MIN. FOSIjj » MAX. FOS) 
{ 


1o S> atoi o str): 


КЕ о 5< ММ_ЕО5) 
{ 


printf("\n\tInvalid input! The minimum factor of safety"); 
printf(" is %.21f!", MIN FOS); 
printf("\n\tRe-enter value: "); 
scanf(" %s", &f_o_str); 
} 


iff o s» MAX FOS) 
printf("\n\tAre sure you want this high of a"); 
printf("\n\tfactor of safety (y/n)? "); 


choice = getche(); 


while(choice != 'y'&&choice != 'Y'&&choice != 'n'’&&choice != 'N') 


{ 
prt_inv(); 
printf("\n\n\tAre sure you want this high of a"); 
printf("\n\tfactor of safety (y/n)? "); 
choice = getche(); 
} 


if(choice = 'n'||choice = 'N’) 


printf("\n\tRe-enter value: "); 
scanf(" Ves", &f o str); 
j 


else 
Ше 


} 


Input-^factor of safety —f o 5; 
clean(); 
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printf("\n\tEnter number of bents: "); 

Input->no_of_bents = test_input_int(1); 

printf("\n\tEnter distance between bents,"); 
printf("\n\t\tfeet: "); 

bent_spread_ft = test_input_double(0.0); 

printf("\t\tinches: "); 

bent_spread_in = test_input_double(0.0); 
Input->bent_spread = bent_spread_ft + bent_spread_in/12; 
Input->pier_length = Input->no_of_bents * Input->bent_spread; 
clean(); 

printf("\n\tEnter piling diameter size(inches): "); 
Input->pile_size = test_input_double(1.0); 

clean(); 


if(wtemp->wave_H > 0.0) 


{ 


wtemp->wave_Re = wtemp->wave_umax*100000*Input->pile_size/l2; 


if(wtemp->wave_Re < 250000) 
wtemp->wave_CM = 2.0; 
else 
if(wtemp->wave_Re < 500000) 
wtemp->wave_CM = (2.5 - wtemp->wave_Re/500000); 
else 
wtemp->wave_CM = 1.5; 


if(wtemp->wave_Re < 300000) 
wtemp->wave_CD = 1.2; 
else 
wtemp->wave_CD = 0.6; 


for(i = 0; 1 < 361; i++) 
{ 
t = wtemp->wave_T*1/360; 
theta = 2*P]*wtemp->wave_d/wtemp->lambda_A; 
gamma = 2*PI*t/wtemp->wave_T; 
wave_Ki = 0.5*tanh(theta)*sin(-gamma); 


if(wave_Ki > wtemp->wave_Ki max) 
wtemp->wave_Ki max = wave_Ki; 


wave_KD = ((1+(2*theta)/(sinh(2*theta)))*fabs(cos(gamma))*cos(gamma))/8; 


if(wave KD > wtemp->wave_KD_max) 
wtemp->wave_KD_ max = wave_KD; 


wave_Mia = wtemp->wave_CM*PI*pow((Input->pile_size/l2),2); 
wave Mib = wtemp->wave_H*H20_RG*wave_Kı/4; 

wave Mic = wtemp->wave_Si*wtemp->wave_d; 

wave Mi 7» wave_Mia*wave_Mib*wave_Mic; 

wave MDa = wtemp->wave_CD*0.5*(Input->pile_size/12); 
wave MDb = pow(wtemp-^wave H,2)*H20 RG*wave KD; 
wave MDc = wtemp->wave_SD*wtemp->wave_d; 
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wave MD - wave MDa*wave MDb*wave MDc; 


if(((wave Mi - wave MD)'wtemp-»wave d) » wtemp-^wave M max d) 
ftemp->wave_M max d — (wave Mi * wave MD)/wtemp-»wave d; 


j 


wtemp-^wave M max d- ftemp-^wave M max d; 
ftemp-2^wave M x d 7 (ftemp-^wave M max d*sin(wtemp-»wave angle)); 


if(Input->env_data->current_spd > 0.0) 


{ 
c_speed = Input->env_data->current_spd*5280/3600; 
Input->env_data->current_Re = c_speed*(Input->pile_size/12)*100000; 


if(Input->env_data->current_Re < 300000) 
Input->env_data->current_pile CD = 1.2; 
else 
Input->env_data->current_pile_CD = 0.6; 


ftemp->current_ship = ((H20_RG/GV)*pow(c_speed,2)*CD_ship)/2; 
ftemp->current_ship_x = (ftemp->current_ship*sin(Input->env_data->current_angle)); 


if(Input->env_data->fouling factor > 0.0) 


{ 
bio_Re = (Input->pile_size+Input->env_data->fouling_factor/2)/12*100000, 
Input->env_data->current_Re = c_speed * bio Re; 


if(Input->env_data->current_Re < 300000) 
Input->env_data->current_pile_CD = 1.2; 
else 
Input->env_data->current_pile_CD = 0.6; 
} 


ftemp->current_pier M= H20 RG*Input->pile_size/12*pow(c_speed,2)*Input->env_data- 
>current_pile CD/4/GV; 
ftemp->current_pier M_x = fabs(ftemp->current_pier_M*sin(Input->env_data->current_angle)); 


} 


printf("\n\tWhat type of timber are the pilings?"); 
Input->pile_prop = calloc(1, sizeof(Props)); 


if(Input->pile_prop == NULL) 
{ 


} 


prt_err("Material Properties"); 


get_prop_info(Input->pile_prop, 1); 
I pile = (PI*pow(Input->pile_size/2,4)/4); 
El pile = (1 pile*Input->pile_prop->bending_mod); 


if(Input->env_data->soil_flag = 0) 
Input->fixity = (8.5*Input->pile_size)/12; 
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else 
if(Input->env_data->soil_flag = 1) 


if(EI_pile <= 10000000000) 
Input->fixity = 10; 

else 
Input->fixity = 12; 


} 
else 
if(input->env_data->soil_flag = 2) 
{ 
if(EI pile <= (10000000000)) 
Input->fixity = 8; 
else 
Input->fixity = 10; 
} 
else 
if(Input->env_data->soil_flag = 3) 
Input->fixity = 5; 
clean(); 


printf("\n\n\tEnter number of pilings per bent: "); 
Input->piles_per_bent = test_input_int(1); 
fflush(stdin); 


if(Input->piles_per_bent < 4) 
{ 


clean(); 
printf АК МООА 


printf("\n\n\t The accuracy of this assessment program is better for"); 
printf("\n\t a pier with more than %d piles per bent!!!",Input->piles_per_bent); 
ЈЕЛИ А А Ат РА БА А т е“““УУАКЦІКС РЕ ҒА ЕЕ Еа жж EE 
printf("\n"); 
pause(); 
clean(); 


if(input->piles_per_bent > 1) 
{ 


printf("\n\tEnter distance between pilings in bent,"); 

printf("\n\t\tfeet: "); 

pile_spread_ft = test_input_double(0.0); 

printf("\t\tinches: "); 

pile_spread_in=test_input_double(0.0); 

Input->pile_spread = pile_spread_ft+pile_spread_in/12; 

} 

Input->pier_width = (Input->piles_per_bent-1) * Input->pile_spread; 
clean(); 


Input->batters = calloc(1, sizeof(Batters)); 


if(Input->batters = NULL) 
{ 
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prt err("Batters"); 


j 


printf("\n\tAre there batter pilings (y/n)?: "); 
batters = getche(); 
printf("\n"); 


while(batters != 'y'&&batters !="Y'&&batters !='n'&&batters != 'N') 
{ 
prt_inv(); 
printf("\n\n\tAre there batter pilings (y/n)?: "); 
batters = getche(); 
printf("\n"); 
) 


Input->batters->batters = batters; 
if(batters = 'y'lbatters = 'Y') 


printf("\n\tEnter batter piling diameter size(inches): "); 
Input->batters->batter_size = test_input_double(1.0); 
printf("\n\tTo find the slope of the batter pile,"); 
printf("\n\tplease enter the following information:"); 
printf("\n\n\t\tVertical rise - feet: "); 

batter rise ft — test input double(0.0); 

printf( "tX Vertical rise - inches: "); 

batter rise in test input double(0.0); 
Input->batters->batter_rise — batter rise ft -* batter rise in/12; 
printf("\n\t\tHorizontal run - feet: "); 

batter_run_ft = test_input_double(0.0); 

printf("\t\tHorizontal run - inches: "); 

batter_run_in = test_input_double(0.0); 
Input->batters->batter_run = batter_run_ft + batter_run_in/12; 


if(Input->batters->batter_run = 0.0) 
Input->batters->batter_angle = PV2; 
else 
Input->batters->batter_angle = atan(Input->batters->batter_rise/Input->batters->batter_run); 


Input->batters->batter_angle_deg = Input->batters->batter_angle* 1 80/P]; 
} 
clean(); 
printf("\n\tWhat type of timber is the superstructure?"); 
Input->sup_struct = calloc(1, sizeof(Sup_struct)); 


if(Input->sup_struct = NULL) 
{ 


} 


prt_err("Superstucture”); 


Input->sup_struct->sup_struct_prop = calloc(1, sizeof(Props)); 
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if(Input->sup_struct->sup_struct_prop == NULL) 


prt_err("Superstucture Properties"); 


} 


get_prop_info(Input->sup_struct->sup_struct_prop, 0); 
clean(); 

printf("\n\tIs there cross bracing on the pilings (y/n)?: "); 
bracing = getche(); 

printf("\n"); 


while(bracing != 'y'&&bracing !="Y'& &bracing != 'n'& &bracing != №) 


prt_inv(); 
printf("\n\n\tIs there cross bracing (y/n)?: "); 
bracing = getche(); 
printf("\n"); 
) 


Input->sup_struct->bracing = bracing; 

clean(); 

printf("\n\tIs the pile cap (S)olid or S(p)lit (\"s\" or \"p\")? "); 
cap_type = getche(); 

printf("\n"); 


while(cap_type !='s'&&cap_ type !='S'&&cap_type !='p'&&cap type != 'P') 


prt_inv(); 
printf("\n\n\tIs the pile cap (S)olid or S(p)lit (\"s\" or \"p\")? "); 
cap_type = getche(); 
printf("\n"); 
} 


Input->sup_struct->cap_type = cap_type; 


if(Input->sup_struct->cap_type = 's'|Input->sup_struct->cap_type = 'S') 
printf("\n\tEnter pile cap dimensions"); 

else 
printf("\n\tEnter pile cap member dimensions"); 


printf("\n\t\theight(inches): "); 

Input->sup_struct->cap_ht = test_input_double(1.0); 

printf("\titwidth(inches): "); 

Input->sup_struct->cap_w = test_input_double(1.0); 

cwtemp = Input->sup_struct->cap_w/12; 

Input->sup_struct->cap_wt = Input->sup_struct->cap_ht/12*cwtemp*Input->pier_width*Input->sup_struct- 
>sup_struct_prop->unit_wt; 


if(Input->sup_struct->cap_type == 'p'|[Input->sup_struct->cap_type = 'P’) 
Input->sup_struct->cap_wt *= 2; 


cwtemp = Input->pile_size/12; 


} 
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printf("\n\tEnter stringer dimensions"); 
printf("\n\t\theight(inches): "); 
Input->sup_struct->string_ht = test_input_double(1.0); 
printf("\t\twidth(inches): "); 
Input->sup_struct->string_w = test_input_double(1.0); 
Input->sup_struct->string_wt = Input->sup_struct->string_ht/12*Input->sup_struct->string_w/12*(Input- 
>bent_spread+cwtemp)*Input->sup_struct->sup_struct_prop->unit_wt; 
printf("\n\tEnter stringer spread - center to center"); 
printf("\n\t\tfeet: "); 
str_spr_ft = test_input_double(0.0); 
printf("\t\tinches: "); 
str_spr_in = test_input_double(0.0); 
Input->sup_struct->string spread = str_spr_ft + str_spr_in/12; 
Input->sup_struct->string wt_bent = (Input->pier_width/Input->sup_struct->string spread+] )*Input- 
>sup_struct->string wt; 
printf("\n\tEnter deck planking dimensions"); 
printf("\n\t\theight(inches): "); 
Input->sup_struct->plank_ht = test_input_double(1.0); 
printf("\t\twidth(inches): "); 
Input->sup_struct->plank_w = test_input_double(1.0); 
Input->sup_struct->plank_wt = Input->sup_struct->plank_ht/12*Input->sup_struct->plank_w/12*Input- 
>sup_struct->sup_struct_prop->unit_wt; 
get load info(Input); 
get bent info(Input); 
Input-2pier period = sqrt(Input->spring_tot/Input->weight_tot); 
Іпрш->1а( cap per ft- Input-»lat cap/Input-»pier length; 
clean(); 
printf("\n\tDo you have physical size data on the ship"); 
printf("\n\tyou expect to moor at this pier (y/n)? "); 
choice! = getche(); 
while(choicel !='y'&&choicel !='Y'&&choicel !='n'&&choicel != №") 
{ 
prt inv(); 
printf("\n\n\tDo you have measurement data for the ship (y/n)? "); 
choicel = getche(); 


} 
if(choicel — 'y'I|choicel = "У') 
| Input->ship = 1; 
get ship data(Input); 
if(Input->ship = 1) 
Input->est_ton_ship = -2.97522+3.264*exp((Input->lat_cap_per_ft-302.97)/509.75); 


if(Input->est_ton_ship > 100.0) 
Input->est_ton_ship = 100.0; 


if(Input->est_ton_ship < 0.0) 
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} 


Input->est_ton_ship = 0.0; 


ET ET EFT БА АД А ДАДА ДА ДАДА ДА А А А АДА ДА ДЕА, 


void get_env_info(PierData *Input) 


{ 


Епу Четр; 

Force *ftemp; 

Wave *wtemp; 

char rpt, bio; 

int flag = 0; 

double w_ang, c_ang, wave_ang, airy_d, airy_h, airy_ha; 
double SK_coef, SD_a, SD_b; 


Input->env_data = calloc(1,sizeof(Env)); 


if(Input->env_data == NULL) 
{ 
prt_err("Environmental"); 


} 


temp = Input->env_data; 
Input->forces = calloc(1,sizeof(Force)); 


if(Input->forces = NULL) 
{ 
prt_err(" Forces"); 


} 


ftemp = Input->forces; 
Input->wave_data = calloc(1,sizeof(Wave)); 


if(Input->wave_data == NULL) 
{ 
prt err(" Wave"); 


j 


wtemp = Input->wave_ data; 

printf("\n\tWhen measuring wind speed, observations should be of"); 
printf("\n\ta sustained wind that lasts for about 30 seconds."); 
printf("\n\n\tPlease enter the wind speed(mph): "); 

temp->wind_spd = test_input_double(0.0); 


if(temp->wind_ spd > 0.0) 


printf("\n\tHow high from the water's surface was this"); 
printf("\n\tmeasurement taken(feet): "); 

temp->wind_spd_ht = test_input_double(0.0); 

printf("\n\tUsing Ше pier as the reference datum, you need to input the"); 
printf("\n\twind angle. Standing at the foot of the pier, orient a compass"); 
printf("\n\tsuch that North is the seaward end of the pier and represents"); 


83 





} 


printf("\n\t-0- or 360 degrees."); 
printf("\n\n\tFrom what angle is the wind coming(deg): "); 
w ang - test input double(0.0); 


if(w апе > 360.0) 


while(flag = 0) 
{ 
prt_inv(); 
printf("\n\n\tWhat 15 the wind angle(deg)?: "); 
w ang-test input double(0.0); 


if(w ang «- 360.0) 
flag = 1; 


} 


if(w апр > 180.0) 
у апр -= 180.0; 
е]ѕе 
if(w_ang < 180.0) 
w_ang += 180.0; 


temp->wind_angle йер = у апр; 

temp->wind_angle = temp->wind_ angle deg*PI/180; 

temp->wind_10 = exp((log(temp->wind_spd_htv/32.8084))/7)*temp->wind_ spd; 
ftemp->wind = 0.00256*pow(temp->wind_ 10,2); 

ftemp->wind_70 = (0.00256*pow(70,2)*sin(temp->wind_angle)); 
ftemp->wind_x = (ftemp->wind*sin(temp->wind_angle)); 


clean(); 

printf("\n\tT ake current speed obserations at the waters surface."); 
printf("\n\tPlease enter the speed of the current(ft per sec): "); 
temp->current_spd = test_input_double(0.0); 

temp->current_spd = (temp->current_spd*3600/5280); 


if(temp->current_ spd > 0.0) 


{ 


printf("\n\tUse the pier as the reference datum as you did with the"); 
printf(" wind.\n\n\tFrom what angle is the current coming(deg): "); 
c_ang = test input double(0.0); 


if(c_ang > 360.0) 


while(flag = 0) 
{ 
prt_inv(); 
printf("\n\n\tWhat is the current angle(deg)?: "); 
c_ang = test_input_double(0.0); 


= if(c_ang <= 360.0) 
flag = 1; 
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} 


if(c_ang > 180.0) 
c ang -— 180.0; 
else 
ifíc ang < 180.0) 
с апр += 180.0; 


temp->current_angle deg =c_ang; 
temp->current_angle = temp->current_angle deg*PI/180; 


} 


clean(); 

printf("\n\tWave height measurements are from peak to trough and should be"); 
printf("\n\tof the average wave profile. Measurements should be taken near"); 
printf("\n\tthe end of the pier or at the area where ship will berth."); 
printf("\n\n\tPlease enter the wave height(inches): "); 

wtemp->wave_H = test_input_double(0.0)/12; 


if(wtemp->wave_H > 0.0) 


printf("\n\tEnter the depth where wave measurements were taken(ft)?: "); 
wtemp-»wave d: test input double(1.0); 


if(wtemp->wave_d < 15.0) 
{ 

prt_inv(); 
printf("\n\n\tIt is HIGHLY unlikely that a ship will be able to"); 
printf("\n\tsafely moor in %.11f ft of water.", wtemp->wave_d); 
printf("\n\n\tYou need to either correct your input or take a"); 
printf("\n\tmeasurement at a more appropriate depth...or, we can"); 
printf("\n\tgo with your original input..."); 
printf("\n\n\tWhat is the depth where wave measurements were taken(ft)?: "); 
wtemp->wave_d = test_input_double(0.0); 


} 


printf("\n\tUse the pier as the reference datum as you"); 
printf("\n\tdid with the wind and current."); 
printf("\n\n\tFrom what angle are the waves coming(deg): "); 
wave_ang = test_input_double(0.0); 


if(wave_ang > 360.0) 


while(flag = 0) 
{ 
prt_inv(); 
printf("\n\n\tWhat is the wave angle(deg)?: "); 
wave_ang = test_input_double(0.0); 


if(wave_ang <= 360.0) 
flag = 1; 
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} 


if(wave_ang > 180.0) 
wave_ang -= 180.0; 
else 
if(wave_ang < 180.0) 

wave_ang += 180.0; 


wtemp->wave_angle deg = wave_ang; 

wtemp-2wave angle - wtemp->wave_angle deg*PI/180; 

printf("nXHow much time passes between successive wave crests(sec): "); 
wtemp-»wave T —test input double(0.0); 

wtemp->lambda_0 = (GV *pow(wtemp->wave_T,2))/(2*PI); 

wtemp->wave_c = (4*wtemp->wave_d*pow(PI,2))/(GV *pow(wtemp->wave_T,2)); 


if(wtemp->wave_c < 2.0) 
wtemp->wave_k = (sqrt(wtemp->wave_c)*(1+0.169*wtemp->wave_c))/wtemp->wave_d; 
else 
wtemp->wave_k = (wtemp->wave_c*(1+2.0*exp(-wtemp->wave_c)))/wtemp->wave_d; 


wtemp->lambda_A = ((2*PI)/wtemp->wave_k); 
wtemp->wave_umax = (PI*wtemp->wave_H*wtemp->lambda_0)/(wtemp->wave_T*wtemp- 


>lambda_A); 


} 


airy _d = wtemp->wave_d/(GV*pow(wtemp->wave_T,2)); 
airy_h = wtemp->wave_H/(GV*pow(wtemp->wave_T,2)); 
airy_ha = (0.00103-(0.0017/(1+exp((airy_d-0.00549)/0.01306)))); 


if(airy_d <= 0.07& &airy_h <= aıry_ha) 
wtemp->wave_Airy = 'Y”; 
else 
ifairy d » 0.07&&airy h «— 0.00103) 
wtemp->wave_ Airy = 'Y'; 
else 
метр->уауе_Апу = М; 


SK_coef = (2*PI*wtemp->wave_d/wtemp->lambda_A); 
wtemp->wave_Si = (1+((1-cosh(SK_coef))/(SK_coef*sinh(SK_coef)))); 
SD_a = (0.5+((1-cosh(2*SK_coef))/(2*SK_coef*sinh(2*SK_coef)))); 
SD_b = (1+((2*SK_coef)/(sinh(2*SK_coef)))); 

wtemp->wave_SD = 0.5+((1/(4*SD_b))*(SD_a)); 


clean(); 

printf("\n\tIs there bio-fouling present(y/n)?: "); 
bio = getche(); 

printf("\n"); 


while(bio !='y'&&bio != 'Y'&&bio != 'n'&&bio != 'N') 


{ 


prt_inv(); 

printf("\n\tIs there bio-fouling(y/n)?: "); 
bio = getche(); 

printf("\n"); 
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} 


} 
if(bio = 'y'|bio — 'Y") 
{ 


printf("\n\n\tHow thick(inches)?: "); 
temp->fouling factor = test_input_double(0.0); 


} 


clean(); 
printf("\n\tWere Rapid Penetration Tests(RPT) performed(y/n)?: "); 


rpt = getche(); 
printf("\n"); 
flag = 0; 


while(rpt !='y'&&rpt !="Y'&&rpt != 'n'&&rpt != №) 
{ 
prt_inv(); 


printf("\n\n\tWere RPTs performed(y/n)?: "); 
rpt = getche(); 
printf("\n"); 

} 


clean(); 


M(rpt — yim- Би) 
get soil info(temp); 


clean(); 


БАЗА А А АЕ А АД А АДА АДАД ДАЉЕ А АДА Eak k E AE EE E E E A OE 


void get_bent_info(PierData *Input) 


{ 


Bent *temp; 
int i; 
char batters; 


Input->bents = calloc(1,sizeof(Bent)); 


if(Input->bents == NULL) 
{ 


} 


prt_err(" Bent"); 


temp = Input->bents; 
Input->pile_uni_min = 1000; 


for(i = 0; 1 <= Input->no_of_bents-1; 1++) 
{ 
clean(); 
{етр->14_ пит = 1+1; 
temp->load_area = Input->pier_width* Input->bent_spread; 


87 










wer ч 


K í o. з = bo “4h 





ИОНИ 


ae 
ss 


f 





if(i == Input->no_of_bents-1) 
temp->load_area /= 2; 


printf("\n\tFor Bent #%d, enter the depth(feet): ",temp->1d_num); 
temp->depth = test_input_double(0.0); 
printf("\n\n\tEnter the distance from the water surface to the"); 


if(Input->sup_struct->bracing = '‘y'||Input->sup_struct->bracing = У) 
printf("\n\tpoint where the pile meets the cross bracing(feet): "); 
else 
printf("\n\tpoint where the pile meets the pile cap(feet): "); 


temp->freeboard = test input double(0.0); 

temp-2dead wt += Input->sup_struct->cap_wt; 

temp->dead_wt += Input->sup_struct->string_wt*(Input->pier_width/Input->sup_struct- 
>string spread+1); 

temp->dead_wt += Input->sup_struct->plank_wt*Input->pier_width*Input->bent_ spread; 

temp->weight_tot += 1.15*temp->dead_wt; 

temp->dead_wt_per_pile = temp->dead_wt/(Input->piles_per_bent-1); 

temp->pile_length = temp->depth + temp->freeboard; 


if(input->sup_struct->bracing == 'y'||Input->sup_struct->bracing == 'Y') 


printf("\n\tEnter the distance from where the piling meets the"); 
printf("\n\tbracing to the pile cap(feet): "); 
temp->brace_2_cap = test_input_double(0.0); 


} 
temp->pile_length_tot = temp->depth + temp->freeboard + temp->brace_2 сар; 
if(Input->batters->batters = 'y'||Input->batters->batters == 'Y") 


{ 
printf("\n\tDoes this bent have batter pilings(y/n)?: "); 


batters = getche(); 


while(batters !— 'y'&&batters !— 'Y'&&batters !— 'n'&&batters != 'N') 


( 
prt_inv(); 
printf("\n\n\tAre there batter pilings in this bent(y/n)?: "); 
batters = getche(); 

} 


temp->batters = batters; 


} 


get pile info(temp, Input); 
Input->spring tot += temp-»spring tot; 
Input->weight_tot += temp->weight_tot; 
Input->lat_cap += temp->lat_cap; 


if(i < Input->no_of_bents - 1) 


{ 
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} 


temp->next = calloc(1,sizeof(Bent)); 


if(temp->next = NULL) 
{ 


} 


prt_err(" Bent"); 


temp = temp->next; 


ТТТ ЕЕ ЖК do oro po oro eoo ore | 


void get_soil_info(Env *temp) 


{ 


int flag = 0; 
char choice; 


while(flag = 0) 


{ 


printf("\n\tWhich type of soil did the tests indicate?"); 
printf("\n\n\t\t\t]) Soft Silt"); 
printf("\n\t\t\t2) Mud"); 
printf("\n\t\t\t3) Clay - Very Soft"); 
printf("\n\t\t\t4) Clay - Soft"); 
printf("\n\t\t\t5) Clay - Medium"); 
printf("\n\t\t\t6) Clay - Stiff"); 
printf("\n\t\t\t7) Sand - Loose"); 
printf("\n\t\t\t8) Sand - Medium"); 
printf("\n\t\t\t9) Sand - Dense/Gravel"); 
printf("\n\n\t\t\tEnter choice: "); 

choice = getche(); 


switch(choice) 
{ 
case "1": 
strcpy(temp->soil_ type, "Soft Silt"); 
temp->soil_ flag = 1; 
flag = 1; 
break; 


Case 2: 
strcpy(temp->soil_type, "Mud"); 
temp->soil_flag = 1; 
flag = 1; 
break; 


case '3': 
strcpy(temp->soil_type, "Very Soft Clay"); 
temp->soil_flag = 1; 
flag = l; 
break; 
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} 


case 4": 
strcpy(temp->soil_type, "Soft Clay"); 
temp->soil_flag = 1; 
flag = 1; 
break; 


case '5*: 
strcpy(temp->soil_type, "Medium Clay"); 
temp->soil_flag = 2; 
flag = 1; 
break; 


case '6': 
strcpy(temp->soil_type, "Stiff Clay"); 
temp->soil_flag = 3; 
Пар = 1; 
break; 


case "7": 
strcpy(temp->soil_type, "Loose Sand"); 
temp->soil_flag = 2; 
flag = 1; 
break; 


case '8': 
strcpy(temp->soil_type, "Medium Sand"); 
temp->soil_flag = 3; 
flag = 1; 
break; 


case 9: 
strcpy(temp->soil_type, "Dense Sand & Gravel"); 
temp->soil_flag = 3; 
flag = 1; 
break; 


default: 
prt_inv(); 
break; 


ЕЕ A / 


void get_pile_info(Bent *bent, PierData *Input) 


{ 


Pile *temp, *prev_temp; 


bent->pile = calloc( 1,sizeof(Pile)); 
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if(bent->pile = NULL) 


{ 


prt_err("Pile"); 


temp = bent->pile; 


for(i = 0; 1 <= Input->piles_per_bent - 1; i++) 
{ 


clean(); 

temp-»id let[0] 2 ' '; 

temp->id_let[1] = (сһаг)(1+65); 

temp->diameter = Input->pile_size; 

temp->unsup_length = bent->pile_length+Input->fixity; 

temp->pile_weight = (PI*pow(temp->diameter/12,2)/4)*(bent->pile_length_tot*Input->pile_prop- 


>unit_wt-bent->depth*H20_RG); 


bent->weight_tot += temp->pile_weight; 
temp-2length mud to cap - bent-»pile length tot; 
if(i = 0 || 1 = Input->piles_per_bent - 1) 

{ 


temp->dead_load = bent->dead_wt_per_pile/2 + 0.075*bent->dead_wt_per_pile; 
temp->load_area = bent->load_area/(Input->piles_per_bent - 1)/2; 


} 
else 
{ 
temp->dead_load = bent->dead_wt_per_pile; 
temp->load_area = bent->load_area/(Input->piles_per_bent - 1); 
} 


if(Input->sup_struct->bracing = 'y'||Input->sup_struct->bracing == 'Y”) 
temp->eff_length = 0.5*temp->unsup_length; 

else 
temp->eff_length = 2*temp->unsup_length; 


printf("\n\tFor Bent #%d, ", bent->id_num); 
printf("pile: %s \n\tenter the following:", temp->id_let); 
get_cond(bent, temp, Input, i+1); 


if(i < Input->piles_per_bent-1) 
temp->next = calloc(1,sizeof(Pile)); 


if(temp->next = NULL) 
{ 
pif err Pile”); 
) 
prev_temp = temp; 
temp = temp->next; 


temp->prev = prev_temp; 


zi 





if(bent->batters = 'y'||bent->batters = У) 
{ 
for(i = 0; i <= 1; i++) 
{ 


temp->next = calloc(1,sizeof(Pile)); 


if(temp->next == NULL) 
{ 
prt err("Batter Pile"); 


) 
temp = temp->next; 
Ша == 0) 


strepy(temp->id_let, "bL"); 
strcpy(side, "left"); 


strepy(temp->id_let, "bR"); 
strcpy(side, "right"); 


temp-2unsup length = (bent->pile_length + Input->fixity )/(sin(Input->batters->batter_angle)); 

temp->diameter = Input->batters->batter_size; 

temp->eff length = 0.7*temp->unsup_length; 

temp->pile_weight = (PI*pow(temp->diameter/12,2)/4)*(bent->pile length tot*Input- 
>pile_prop->unit_wt - bent->depth*H20_RG)/(sin(Input->batters->batter_angle)); 

bent->weight_tot += temp->pile_weight; 

clean(); 

printf("\n\tFor Bent #%d, ", bent->id_num); 

printf("the 9os batter pile, \n\tenter the following:", side); 

get_cond(bent, temp, Input, 0); 


} 


E E E E E E E EEO OEE OEE EFE E E EL EEE O E ERE NARRAR | 
void get_prop_info(Props *matl, int pflag) 


char choice; 
int flag = 0; 


while(flag = 0) 
{ 
printf(\n\n\tWhen identifying the type of wood, if the type you are looking"); 
printf("\n\tfor is not present, choose the closest or next weaker type. "); 
printf(‘\n\n\t\t\tl) Douglas Fir"); 
printf("\n\t\t\t2) Southern Pine"); 
printf("\n\t\t\t3) White Oak"); 
printf("\n\t\t\t4) Red Oak"); 
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printf("\n\t\t\t5) Northern Red Oak"); 
printf("\n\t\t\t6) Mixed Oak"); 

printf("\n\t\t\t7) Mixed Hardwoods"); 
printf("\n\t\t\t8) Greenheart - usually only piles"); 
printf("\n\t\t\t9) Ekki (Azobe) - usually only piles"); 
printf("\n\n\t\t\tEnter choice: "); 

choice = getche(); 


switch(choice) 


{ 
case "1": 
if(pflag = 1) 
{ 


та ->бепа по тод = 1700000.0; 
matl->sig pub bend = 1750.0; 


else 


matl->bending_mod = 1800000.0; 
matl->sig pub bend - 1900.0; 


} 


matl-^sig pub comp - 1350.0; 
matl->unit_wt = 34.0; 
strcpy(matl->tim_type, "Douglas Fir"); 
flag = l; 

break; 


case '2': 
if(pflag = 1) 


matl->bending mod = 1600000.0; 
matl-^sig pub bend - 1500.0; 


else 


matl->bending_ mod = 1600000.0; 
matl->sig_pub_bend = 1800.0; 


} 


matl->sig_pub_comp = 975.0; 
matl->unit_wt = 36.0; 

strcpy(matl-^tim type,"Southern Pine"); 
flag = 1; 

break; 


case 3" 
if(pflag = 1) 
{ 


matl->bending mod = 1000000.0; 
matl->sig pub bend - 1300.0; 


j 


else 
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{ 
matl->bending mod = 1000000.0; 
matl-^sig pub bend = 1400.0; 


j 


matl-^»sig pub comp - 850.0; 
matl->unit_wt = 48.0; 
strcpy(matl->tim_type,” White Oak"); 
flag = 1; 

break; 


case '4': 
if(pflag = 1) 


matl->bending mod = 1200000.0; 
matl->sig_pub_bend = 1250.0; 


else 
{ 
matl->bending mod = 1200000.0; 
matl->sig_pub_bend = 1350.0; 
} 


matl->sig_pub_comp = 875.0; 
matl->unit_wt = 44.0; 
strepy(matl->tim_type,"Red Oak"); 
flag = 1; 

break; 


case '5': 
if(pflag = 1) 


matl->bending mod = 1300000.0; 
matl->sig pub bend = 1500.0; 
) 
else 
{ 
matl->bending mod = 1300000.0; 
matl->sig_pub_bend = 1600.0; 
) 


matl-^sig pub comp - 1000.0; 
matl->unit_wt = 44.0; 
strcpy(matl->tim_type," Northern Red Oak"); 
flag = 1; 

break; 


case '6': 
if(pflag = 1) 
{ 
matl->bending mod = 1000000.0; 
matl->sig_pub_bend = 1250.0; 


} 
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else 
{ 
matl->bending mod = 1000000.0; 
matl-^sig pub bend = 1350.0; 
j 


matl-^sig pub comp = 875.0; 
matl->unit_wt = 46.0; 
strcpy(matl->tim_type," Mixed Oak"); 
flag = 1; 

break; 


case '7': 
if(pflag = 1) 
{ 


matl->bending_mod = 1500000.0; 
matl->sig_pub_bend = 1550.0; 


else 


matl->bending mod = 1500000.0; 
matl->sig pub bend = 1650.0; 
} 


matl->sig_pub_comp = 875.0; 
matl->unit_wt = 42.0; 
strcpy(matl->tim_type,"Mixed Hardwoods"); 
flag = 1; 

break; 


case '8': 
matl->bending_mod = 3700000.0; 
matl->sig pub comp = 3400.0; 
matl->sig pub bend = 4500.0; 
matl->unit_wt = 66.0; 
strepy(matl->tim_type,"Greenheart"); 
flag = 1; 
break; 


case 9": 
matl->bending_ mod = 3000000.0; 
matl->sig_pub_comp = 3400.0; 
matl->sig_pub_ bend = 4500.0; 
matl->unit_wt = 65.5; 
strcpy(matl->tim_ type,” Ekki"); 
flag = 1; 
break; 


default: 


prt_inv(); 
break; 
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} 


A A | 


double test_input(int num, double check) 


{ 


char in_value[20] = {0}, choice; 


double out_value = 0.0; 
int j, 1, flag = 0, ctr = 0; 


while(flag == 0) 
scanf("%s", in_value); 


for(i = 0; 1 < strlen(in_value); i++) 
{ 
if(isdigit(in_value[i}) == 0) 
flag = 1; 
} 


if(strlen(in_ value) > num||flag = 1) 
Cir; 


if(ctr >= 3) 
{ 
printf("\n\tThat's 3 incorrect inputs in a row."); 
printf("\n\tDo you wish to quit (y/n)? "); 
choice = getche(); 


if(quit(choice)) 

{ 
printf("\n\n\tLater!!!"); 
exit(0); 

j 

else 

{ 
ctr = 0; 

} 

} 
рп шу(); 
printf("\n\tRe-enter value: "); 
flag = 0; 
іп уаіџе[0] = ^0"; 
) 
else 
flag = 2; 


} 


for(i = 0, j = strlen(in_value); j > 0; j--,1++) 
out_value += (double)(((int)in_value[i]-48)*pow(10, j-1)); 
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if(out_ value < check) 


( 
prt_inv(); 
printf("\n\tRe-enter value: "); 
out_value = test_input(num, check); 
} 


return(out_value); 


} 


AI IDA A EE ee ee f 


int quit(char choice) 


{ 


char temp = 'n'; 


if(choice = 'y'||choice = 'Y') 


return(1); 
else 
{ 
if(choice = 'n'|choice — 'N') 
return(0); 
else 
{ 


printf("Invalid selection. Quit(y/n)? "); 
temp = getche(); 
return(quit(temp)); 


} 


К ЖЖ ЕЕ ЕЕ AAA A И 


void get cond(Bent *bent, Pile *temp, PierData *Input, int pile no) 

{ 
Force *ftemp; 
int flag = 0, flag] = 0; 
double sigma = 0.0, Sigma_calc = 0.0, I = 0.0, b = 0.0, В = 0.0, 5 = 0.0; 
double diam = 0.0, eff 1 7 temp-»eff length, A — 0.0, x — 0.0, y = 0.0; 
double bat temp — 0.0, wc moment = 0.0; 
char choice, choice]; 


ftemp = Input->forces; 
while(flag = 0) 
{ 
printf("\n\n\tCondition code for this pile:"); 
printf("\n\n\t\t]) ND 2) ММ 3)MD 4)МІ 5)5У"); 
printf("\n\n\t\t\tEnter choice: "); 


choice = getche(); 


switch(choice) 


{ 


oe 








case l: 
strepy(temp->condition, "ND"); 
diam = temp->diameter; 
I = (PI * pow(diam/2, 4))/4; 
A = (PI * pow(diam/2, 2)); 
flag = 1; 


if(Input->sup_struct->bracing = ‘y'||Input->sup_struct->bracing = 'Y') 
flag] = 1; 

else 
flag] = 2; 


temp->flag = 0; 
break; 


case 2* 
strcpy(temp->condition, "MN"); 
printf("\n\tEnter the reduced piling diameter size(inches): "); 
temp->diameter = test_input(2, 1.0); 
diam = temp->diameter; 
I = (PI * pow(diam/2, 4))/4; 
А = (PI * pow(diam/2, 2)); 
flag = 1; 


if(Input->sup_struct->bracing = 'y'||Input->sup_struct->bracing = 'Y') 
flag] = 1; 

else 
flag] =2; 


temp->flag = 0; 
break; 


case 2” 
strcpy(temp->condition, "MD"); 
while(flagl = 0) 


printf("\n\n\tIs the defective portion of this pile"); 
printf(" (c)ircular\n\t or (r)ectangular (\"c\" or \"r\")? "); 
choicel = getche(); 
рип ("\п"); 
switch(choicel) 
{ 
Case с 
Case C: 
printf("\n\tEnter the reduced piling diameter size(inches): "); 
temp->diameter = test_input_double(1.0); 
diam = temp->diameter; 
A = (PI * pow(diam/2, 2)); 
1 = (PI * pow(diam/2, 4))/4; 


if(Input->sup_struct->bracing = 'y'||Input->sup_struct->bracing = 'Y') 


flag] =1; 
else 
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flag] = 2; 
break; 


case Т” 

case 'R': 
printf("\n\tSuperimpose a rectangle on the section. "); 
printf("Enter the\n\tfollowing dimensions -"); 
printf("\n\t\tWidth(inches): "); 
h = test_input_double(0.0); 
printf("\titLength(inches): "); 
b —test input double(0.0); 


A 7 (h * b); 
I = (b*(pow(h, 3))/12); 
flag] = 3; 
break; 
default: 
prt_inv(); 
break; 
} 
} 
flag = 1; 
temp->flag = 0; 
break; 
case '4': 


strcpy(temp->condition, "MJ"); 
while(flagl = 0) 
{ 
рип ("\п\п\ $ the defective portion of this pile"); 
printf(" (c)ircular, (r)ectangular"); 
printf("or (1)ncapable of supporting a load (\"c\", \"r\" or \"1\")? "); 
choicel = getche(); 
printf("\n"); 
switch(choice 1) 
{ 
case 'c': 
case E: 
printf("\n\tEnter the reduced piling diameter size(inches): "); 
temp->diameter = test_input_double(1.0); 
diam = temp->diameter; 
А = (РІ * pow(diam/2, 2)); 
I = (PI * pow(diam/2, 4))/4; 


if(Input->sup_struct->bracing = '‘y'||Input->sup_struct->bracing = 'Y') 


flag] = 1; 
else 

flag] = 2; 
temp->flag = 0; 
break; 
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case 'г': 

сазе "В": 
printf("\n\tSuperimpose a rectangle on the section. "); 
printf(" Enter the\n\tfollowing dimensions -"); 
printf("\n\t\tWidth(inches): "); 
h = test_input_double(0.0); 
printf("\titLength(inches): "); 
b =test_input_double(0.0); 


A = (h * b): 
I = (b*(pow(h, 3))/12); 
flag] 23; 
temp->flag = 0; 
break; 
case '1'; 
case I 
1 = 0.0; 
А = 0.0; 
flag] = 4; 
temp->flag = 1; 
break; 
default: 
prt_inv(); 
break; 
) 
) 
flag = 1; 
break; 
case 'S': 
strcpy(temp->condition, "SV"); 
[= 0.0; 
А = 0.0; 
flag = 1; 
flag] =4; 
temp->flag = 1; 
break; 
default: 
prt_inv(); 
break; 


} 


x = pow(PI,2)*I*Input->pile_prop->bending_mod; 
у = A*pow(eff_1*12,2)*Input->factor_of_safety; 
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if(A — 0.0) 


Sigma calc - 0.0 


else 


Sigma calc = х/у; 


2 


if(Sigma_calc < Input->pile_prop->sig_pub_comp) 
sigma = Sigma_calc; 


else 


sigma = Input->pile_prop->sig_pub_comp; 


if(temp->id_let[0] == Ъ) 
{ 


temp->vert_load = A*sigma; 


if(temp->vert_load < 0) 
temp->vert_load = 0; 


bat_temp = temp->vert_load*cos(Input->batters->batter_angle); 


if(temp->id_let{1] == 'R’) 


temp->lat_load = 1.333*bat_temp; 
bent->lat_cap += temp->lat_load; 


} 


else 


if(temp->flag = 1) 
{ 


if(pile_no = 1||pile_no = Input->piles_per_bent) 
{ 


>load_area/144; 


else 


>load_area/144; 


} 


else 


{ 


temp->vert_load = Input->loads->pile_pt_miss_end - temp->dead_load; 
ifplle min p < temp-»vert load) 
temp-»vert load — pile min p; 
temp->uni_load psi = Input->loads->pile_uni_ miss end - temp->dead_load/temp- 


lf(pile min u<temp->uni_load psi) 
temp->uni_load psi = pile_min _u; 


temp->vert_load = Input->loads->pile рі 15 - temp->dead_load; 
if(pile min p < temp->vert_load) 
temp->vert_load = pile min_p; 
temp->uni_load_psi = Input->loads->pile_uni_miss - temp->dead_load/temp- 


if(pile_min_u < temp->uni_load_psi) 
temp->uni_load_psi = pile_min_u; 


temp->vert_load = A*sigma - temp->dead_load; 
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temp->uni_load_psi = temp->vert_load/temp->load_area/144; 
if(temp->vert_load <= 0) 
if(pile_no = 1||pile_no = Input->piles_per_bent) 
{ 


temp->vert_load = Input->loads->pile_pt_miss_end - temp->dead_load; 
ifple min p « temp-»vert load) 

temp-2vert load — pile min p; 
if(temp->vert_load <= 0) 

temp->vert_load = 0; 


else 


temp->vert_load = Input->loads->pile_pt_miss - temp->dead_load; 
if(pile_min_p <temp->vert_load) 

temp->vert_load = pile min _p; 
if(temp->vert_load <= 0) 

temp->vert_load = 0; 


} 


else 
if((Input->loads->pile_pt_miss - temp->dead_load) < pile min p) 


if(temp->vert_load < (Input->loads->pile_pt_miss - temp->dead_load)) 
temp->vert_load = (Input->loads->pile_pt_miss - temp->dead_load); 
) 
else 
temp->vert_load = pile min p; 


if(temp->uni_load_psi <= 0) 


{ 
ifple no — 1||pile_no = Input->piles_per_bent) 
{ 


temp->uni_load_psi = Input->loads->pile_uni_miss_end - (temp- 
>dead_load/temp->load_area/144); 
ifple min u<temp->uni_load psi) 
temp->uni_load_psi = pile_min_u; 
if(temp->uni_load_psi <= 0) 
temp->uni_load_psi = 0; 


else 


temp->uni_load_psi = Input->loads->pile_uni_miss - temp->dead_load/temp- 
>load_area/| 44; 
if(pile_min_u <temp->uni_load psi) 
temp->uni_load_psi = pile_min_p; 
if(temp->uni_load_psi <= 0) 
temp->uni_load_psi = 0; 


} 
е]5е 
if((Input->loads->pile_uni_miss - temp->dead_load/temp->load_area/144) < pile_min_u) 
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{ 
if(temp->uni_load_psi < (Input->loads->pile_uni_miss - temp->dead_load/temp- 
>load_area/144)) 
temp->uni_load_psi = (Input->loads->pile_uni_miss - temp->dead_load/temp- 
>load_area/144); 
} 


else 
temp->uni_load_psi = pile_min_u; 


if(Input->pile_uni_min > temp->uni_load_psi) 
{ 
Input->pile_uni_min = temp->uni_load_psi; 
Input->loads->pile_uni_min = Input->pile_uni_min; 


} 


wc_moment = (ftemp->wave_M_x_d*bent->depth*12)+(ftemp->current_pier_M_x*pow(bent- 
>depth*12,2)); 

temp->spring_cap = 3*Input->pile_prop->bending_mod*V/pow(eff_1*12.3); 

bent->spring_tot += temp->spring_cap; 

S = Input->pile_prop->sig_pub_bend; 


if(flag] = 1) 
{ 
temp->lat_load = 2*(S*PI*pow(diam/2,3)/4 - wc_moment)/(eff_1*12); 
bent->lat_cap += temp->lat_load; 


} 
if(flagl — 2) 


temp->lat_load = (S*PI*pow(diam/2,3)/4 - wc_moment)/(eff_1*12); 
bent->lat_cap += temp->lat_load; 


} 
if(flag] = 3) 


temp->lat_load = 2*(S*b*pow(h,2)/4 - we_moment)/(eff_1*12); 
bent->lat_cap += temp->lat_load; 


) 
if(flag] == 4) 
temp->lat_load = 0.0; 
bent->lat_cap += temp->lat_load; 
} 


} 


ЖЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖ ЖЕ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖЖЖЖЖХ | 


void get load info(PierData *Input) 
{ 


Load *temp; 
double hs a 7 0.0, hs b 2 0.0, h a7 0.0, h b — 0.6, pu_a = 0.0, pu b = 0.0; 
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double cu_a= 0.0, cu_b = 0.0, su_a = 0.0, su_b = 0.0, sp_a = 0.0, sp_b = 0.0; 
double ca_a = 0.0, ca_b = 0.0, cp_a = 0.0, cp_b = 0.0, sig_sup = 0.0; 

double sig_ad)_pl = 0.0; 

Input->loads = calloc(1,sizeof(Load)); 


if(Input-2loads — NULL) 
{ 


} 


prt_err("Load"); 


temp = Input->loads; 


if(Input->sup_struct->plank_w >= 5.0) 
{ 
if(Input->sup_struct->plank_ht <= 2.0) 
sig adj pl 7 1.22; 
else 
if(Input->sup_struct->plank_ht <= 3.0) 
sig adj pl = 1.16; 
else 
sig adj pl=1.11; 
} 
else 
if(Input->sup_struct->plank_ht <= 2.0) 
sig adj pl = 1.10; 
else 
if(Input->sup_struct->plank_ht <= 3.0) 
sig_adj_pl = 1.04; 
else 
5ір ад) рі- 1.00; 


sig sup = Input->sup_struct->sup_struct_prop->sig_pub_bend; 


if(Input->bent_ spread <= 23.9) 
{ 
hs_a = (4/Input->sup_struct->string_spread)*2*Input->sup_struct->string_w*pow(Input->sup_struct- 
>string_ht,2)*sig_sup; 
hs_b = 3*Input->bent_spread*12; 
termp->hs_limit_wheel_str =hs_a/hs_b; 
) 


else 


{ 


hs_a=(4/Input->sup_struct->string_spread)*Input->sup_struct->string_w*pow(Input->sup_struct- 
>string_ht,2)*sig_sup; 
hs b= 3*pow((Input->bent_spread-7)*12,2); 
temp->hs_limit_wheel_str = Input->bent_spread*12*hs_a/hs_b; 
) 


if(Input->bent_spread <= 27.0) 
{ 


h_a= (4/Input->sup_struct->string_spread)*2*Input->sup_struct->string_w*pow(Input->sup_struct- 
>string_ht,2)*sig sup; 
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h_b = 3*Input->bent_spread*12; 
temp->h_limit_wheel_str = h_a/h_b; 
} 


else 


h_a = (4Anput->sup_struct->string_spread)*Input->sup_struct->string w*pow(Input->sup_struct- 
>string_ht,2)*sig sup; 
h_b = (1.862*Input->bent_spread-9.606)* 12; 
temp->h_limit_wheel_str = h_a/h_b; 
} 


ѕр а = (4/Input->sup_struct->string_spread)*4*Input->sup_struct->string_w*pow(Input->sup_struct- 
>string_ht,2)*sig_sup; 

sp_b = 6*Input->bent_spread*12; 

temp-»string pt lim ^ sp a/sp b; 


su a = (4/Input->sup_struct->string_spread)*8*Input->sup_struct->string_w*pow(Input->sup_struct- 
>string ht,2)*sig sup; 

su_b = 6*pow(Input->bent_spread* 12,2); 

temp->string_uni_lim_psi = su_a/su_b/(Input->sup_struct->string_spread*12); 


са а = Input->sup_struct->cap_w*pow(Input->sup_struct->cap_ht,2)*sig_ sup; 

ca_b = 72*(-124.02+92.39*(1-exp(-Input->pile_spread/13.59))+169.237*(1-exp(-Input- 
>pile_spread/3.203)))/100; 

temp->axle lim cap=ca_a/ca b; 


cp_a= Input->sup_struct->cap _W*pow(Input->sup_struct->cap_ht,2)*sig sup; 
cp_b = 6*0.07922555*Input->pile_spread* 12; 
temp->cap_pt_lim=cp_a/cp_b; 


cu_a=Input->sup_struct->cap_w*pow(Input->sup_struct->cap_ht,2)*sig_ sup; 
cu_b = 6*0.1056338*Input->bent_spread*12*Input->pile_spread*12; 
temp->cap_uni_lim_psi = cu_a/cu_b; 


ри а = pow(Input->sup_struct->plank ht,2)*sig sup*sig adj pl; 
ри b=6*0.1056338*Input->sup_struct->string_spread*12; 
temp-2plank uni lim psi - pu a/pu b; 


temp-»pile uni min ^ Input-^pile uni min; 

temp->pile_pt_miss = (Input->sup_struct->cap_w*pow(Input->sup_struct- 
>cap_ht,2)*sig_sup)/(6*0.261686*Input->pile_spread* 12); 

temp->pile_uni_miss = (Input->sup_struct->cap_w*pow(Input->sup_struct- 
>cap_ht,2)*sig sup)(6*0.1996*Input->pile_spread*12*Input->bent_spread*12); 

temp->pile рі 10155 епа = (Input->sup_struct->cap_w*pow(Input->sup_struct- 
>cap_ht,2)*sig_sup)/(6*Input->pile_spread*12); 

temp->pile_uni_miss_ end = (2*Input->sup_struct->cap_w*pow(Input->sup_struct- 
>cap_ht,2)*sig_sup)/(6*pow(Input->pile_spread*12,2)*Input->bent_spread* 12); 


temp->fork_lim_5 = check_fork(6.25, 10000, Input); 
temp->fork_lim_6 = check_fork(6.25, 11500, Input); 
temp->fork_lim_75 = check_fork(6.333, 14500, Input); 
temp->fork_lim_8 = check_fork(6.333, 15250, Input); 
temp->fork_lim_10 = check_fork(6.333, 17500, Input); 





temp->fork_lim_12= check_fork(6.333, 22150, Input); 

temp->fork_lim_15 = check_fork(6.5, 29000, Input); 

temp->fork_lim_20 = check_fork(8.0, 490100, Input); 
} 


АДА О А У А А ДАДА АДА ДА А А ДА ДД ДАЉА ДАДА ЛА ДАЊУ. 


char check_fork(double a, double lim, PierData *Input) 
{ 
double p, p_a, p_b; 
double sig_sup = Input->sup_struct->sup_struct_prop->sig_pub_bend; 


if(Input->bent_spread <= (1.707*a)) 
{ 
р а = (4/Input->sup_struct->string_spread)*4*Input->sup_struct->string_w*pow(Input->sup_struct- 
>string_ht,2)*sig_sup; 
p_b = 6*Input->bent_spread*12; 


p = p_a/p_b; 
if(p >= lim) 
return('Y'); 
else 
retum(N'); 
) 
else 
{ 


р а = (4/Input->sup_struct->string_spread)*2*Input->sup_struct->string_w*pow(Input->sup_struct- 
>string_ht,2)*sig_sup; 

p_b = 6*powf{(Input->bent_spread-a/2)*12,2); 

p = Іпрш->Бепі 5ргеай“12%р а/р Б; 


if(p >= lim) 
return('Y’); 

else 
return('N'); 


} 


ПА ОУН EEE EEE EEE AECE ENEE ERE REE eor oo) 
void get ship data(PierData *Input) 
{ 

Ship *temp; 

double w_load, c_load; 

int k = 1.3; 

Input->ship_data = calloc(1,sizeof(Ship)); 


if(Input->ship_data == NULL) 
{ 


} 


temp = Input->ship_data; 


prt_err("Ship"); 
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} 


printfÜ"\n\n\t\tEnter ship length(feet): "); 
temp->length = test_input_double(1.0); 


if(temp->length <= 80) 
{ 
тетр->С1 = 1.0; 
temp->C2 = 1.45; 


} 
else 
if(temp->length <= 250) 
{ 
temp->C1 = 0.8; 
temp->C2 = 1.37; 
) 
else 
if(temp->length < 655) 
{ 
temp->C1 = 0.65; 
{етр->С2 = 1.31; 
} 
else 
{ 
temp->C1 = 0.5; 
temp->C2 = 1.25; 
} 


printf("\n\t\tEnter ship draft(feet): "); 

temp->draft = test_input_double(1.0); 

printf("\n\t\tFor this next amount, you will need to \"flatten\" the"); 
printf("\n\t\tsuperstructure so that the ship is a rectangle sitting on"); 

printf("\n\t\tthe water."); 

printf("\n\n\t\tEnter the \"height\" of the rectangle (feet): "); 

temp-»freeboard - test input double(1.0); 

w_load = k*temp->C 1 *temp->C2*temp->length* temp->freeboard* Input->forces->wind_x; 
c load = temp->length*temp->draft* Input->forces->current_ship_x; 

temp->force_tot = w_load + c_load; 


if((Input->lat_cap-fabs(temp->force_tot)) > 0) 
Input->ship = 2; 


Е РЕКЕ ee 


char prn to file(PierData *p info, Flagz *flagz) 


{ 


FEE =p mp: 

Bent *b_temp; 

Pile *p temp; 

char choice, f temp, fname[13] = "pier_in0.dat"; 
int flag1 = 1; 

double uni min, p load, w load,t angle, p min; 


if(flagz-^t flag — 1) 
fname[7] 7» 't'; 
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else 


remove("pier_int.dat"); 

printf("\n\n\tEnter a number between 0-9. This number will be used"); 
printf("\n\twhen saving the user data file so that you can tell the"); 
printf("\n\tdifference between input files. For example, if you"); 
printf("\n\tinput the number 3, your data file will be saved as:"); 
printf("\n\n\t\t\tpier_in3.dat"); 

printf("\n\n\tlf you enter a number that has been used previously,"); 
printf("\n\tyou will overwrite that file."); 

printf("\n\n\tPlease enter number: "); 

f temp = (int)(check_num()+48); 

ате[7] = f temp; 


while(flag] == 1) 


{ 
rfp = fopen(fname, "r"); 


if(rfp != NULL) 
{ 
printf("\n\n\tWarning!!! This file already exists."); 
printf("\n\tDo you wish to overwrite this file(y/n)? "); 
choice 7 getche(); 


while(choice != 'y'& &choice != 'Y'&&choice != 'n'&&choice != 'N') 


{ 
prt_inv(); 
printf("\n\tDo you wish to overwrite this file(y/n)? "); 
choice = getche(); 
} 
if(choice = 'n'||choice = 'N') 
{ 
printf("\n\n\tPlease enter new number: "); 
f temp = (int)(check_num()+48); 
fname[7] ^ f temp; 
rfp = fopen(fname, "r"); 
} 
else 
flag] = 0; 
) 
else 
flag] = 0; 
} 
fclose(rfp); 
} 
clrscr(); 


if(p_info->no_of_bents >= 3&&p_info->piles_per_bent >=3&&flagz->t_flag != 1) 


{ 
flagz->s_flag = 1; 
pile plot(p info, f temp); 
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} 
ofp = fopen(fname, "w"); 


ofp = NULL) 
{ 
printf("\nERROR: Cannot open user output file!\n"); 
exit(-1); 


} 


fprintf(ofp,"\tFile generated: "); 

date_plot(ofp); 

fprintf(ofp,"\n\tThe following information was input in to RSAP."); 
fprintf(ofp,"\n\t(C)1999 - All rights reserved. R. J. Keiter"); 

print o, eee"): 


if(p_info->env_data->wind_spd > 0) 
{ 
fprintf(ofp,"\n\n\tThe wind speed was measured at %.Olf mph,",p_info->env_data->wind_spd); 
fprintf(ofp," %.Olf above int the water's surface",p_info->env_data->wind_spd_ht); 


if(p_info->env_data->wind_angle_deg > 180) 

t_angle = p_info->env_data->wind_angle_ deg - 180; 
else 

t_angle = p_info->env_data->wind_angle deg + 180; 


fprintf(ofp," at an angle of %.Olf degrees.",t_angle); 
j 


else 
fprintf(ofp,"\n\tThere were no wind data provided."); 


if(p_info->env_data->current_spd > 0) 


{ 


fprintf(ofp,"\n\tThe current speed was measured at %.2]f mph",p_info->env_data->current_spd); 


if(p_info->env_data->current_angle_ deg > 180) 

t angle = p _info->env_data->current_angle_ deg - 180; 
else 

t_angle = p_info->env_data->current_angle_deg + 180; 


fprintf(ofp," at an \n\t angle of %.0lf degrees.",t_angle); 
} 


else 
fprintf(ofp,"\n\tThere were no current data provided."); 


if(p_info->wave_data->wave_H > 0) 
{ 


fprintf(ofp,"\n\t%.2I1f\' waves at %.0lf seconds were observed",p_info->wave_data->wave_H, p_info- 
>wave_data->wave_T); 


if(p_info->wave_data->wave_angle_deg > 180) 


t_angle = p_info->wave_data->wave_angle_deg - 180; 
else 


109 





t_angle = p_info->wave_data->wave_angle_ deg + 180; 


fprintf(ofp," in %.Olf of water at an \n\t angle of %.0lf degrees.",p info->wave_data- 
>wave_d,t_ angle); 


if(p_info->wave_data->wave_Airy = М") 
{ 


АО (ОАО Game ДМ КО ЗК ED SNe Se dd 


Три Ор, In ня ATTENTION!" a Ж. 
printio OUr A a A id o. 
fprintf(ofp,"\n\n\tThese waves do not fall under the theory used here to"); 
fprintf(ofp,"\n\tanalyze the forces due to waves. The actual forces will"); 
fprintf(ofp,"\n\tmost likely be larger than that calculated and used in "); 
fprintf(ofp,"\n\tthis assessment. Proceed with caution!"); 
БИНОМ аа ELE т), 


рапорта E ATTENTION!!! жтт DD 


e " и 
рип ор, NEE TEE TEN EIN EEE EIN HERE ENT АДА АЛА ) 


2 
> 


} 


else 
fprintf(ofp,"\n\tThere were no wave data provided."); 


if(p_info->env_data->soil_flag > 0) 

fprintf(ofp,"\n\n\tSoil Type: %s",p_info->env_data->soil_type); 
else 

fprintf(ofp,"\n\n\tNo Soil information provided."); 


fprintf(ofp,"\n\n\tThis analysis was performed using a factor of safety of: "); 
fprintf(ofp,"%.21f",p info->factor_of safety); 

fprintf(ofp,"\n\n\tNumber of bents: %d", p info->no_of bents); 

fprintf(ofp,"\n\tThe distance between bents is: %.21f", p_info->bent_spread); 
fprintf(ofp,"\n\tThe pilings are %.01Ñ" %s", p_info->pile_size, p info->pile_prop->tim_type); 


if(p_info->env_data->fouling factor > 0) 
fprintf(ofp," with %.0If\" of bio-fouling.", p_info->env_data->fouling factor); 
else 


fprintf(ofp,"."); 


fprintf(ofp,"\n\tNumber of piles per bent: %d", p_info->piles_per_bent); 
fprintf(ofp,"\n\tDistance between pilings: %.21f", p_info->pile_spread); 


if(p_info->batters->batters = 'y'||p_info->batters->batters = 'Y') 


{ 
fprintf(ofp,"\n\tThis pier has %.OIf\" batter pilings", p_info->batters->batter_size); 
fprintf(ofp," at a %.Olf degree angle.", p_info->batters->batter_angle_deg); 


} 


fprintf(ofp,"\n\n\tThe superstructure is constructed of %s,", p_info->sup_struct->sup_struct_prop->tim_type); 


if(p_info->sup_struct->bracing == ‘y'||p_info->sup_struct->bracing = 'Y') 
fprintf(ofp,"\n\t has cross bracing, "); 

else 
fprintf(ofp,"\n\t has NO cross bracing, "); 


110 





1(p_info->sup_struct->cap_type = 's'lip_info->sup struct->cap_type = 'S') 
fprintf(ofp,"and has a solid type pile сар."); 

else 
fprintf(ofp,"and has a split type pile cap."); 


fprintf(ofp,"\n\tThe pile cap member dimensions are"); 

fprintf(ofp,” %.01f\" x %.01f\".", p_info->sup_struct->cap_w, p_info->sup_struct->cap_ht); 

fprintf(ofp,"\n\tThe stringers are %.01f\" x %.0If\"", p_info->sup_struct->string_w, p_info->sup_struct- 
>string ht); 

fprintf(ofp," and are centered %.2If apart.", p_info->sup_struct->string spread); 

fprintf(ofp,"\n\tThe deck planking 15 %.01fV' x %.01f\".", p_info->sup_struct->plank_w, p_info->sup_struct- 
>plank_ht); 

fprintf(ofp,"\n\n\tThe piling inspection information is as follows:"); 

fprintf(ofp,"\n\t (The number following the bent number is the"); 

fprintf(ofp,"\n\t distance from the bottom to where the piling"); 

fprintf(ofp,"\n\t_ meets the"); 


if(p_info->sup_struct->bracing = 'y'||p_info->sup_struct->bracing = 'Y’) 
fprintf(ofp," cross bracing.)"); 

else 
fprintf(ofp," pile cap.)"); 


b_ temp = p_info->bents; 
while(b_temp != NULL) 
| fprintf(ofp,"\n\n\tBent #%d - %.Olf\n\t", b_temp->id_num, b_temp->pile_length); 
p_temp = b_temp->pile; 
while(p_temp != NULL) 


fprintf(ofp," %s: %s", p_temp->id_let, p temp-»condition); 
p_temp = p_temp->next; 


} 
b_temp = b_temp->next; 
} 
МШШ re и —— = = AA 
1 010 Assessment imiormalion —— ج‎ 


RL, N sin | 
fprintf(ofp,"\n\n\tThe pier natural period is %.21f seconds. If we",p_info->pier_period); 
fprintf(ofp,"\n\tcompare this to the wave period of %.21f seconds,",p_info->wave_data->wave_T); 


if((fabs(p_info->pier_period - p_info->wave_data->wave_T)) < 2) 
fprintf(ofp,"\n\tthis IS something to be concerned about..."); 

else 
fprintf(ofp,"\n\tthis should be nothing to be concerned about..."); 


fprintf(ofp,"\n\n\tThe pile locations can hold the following point loads(Ibs)"); 


b_temp = p_info->bents; 
p_min = b_temp->pile->vert_load; 
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while(b_temp != NULL) 
{ 
fprintf(ofp,"\n\n\tBent #%d\n\t", b_temp->id_num); 
p_temp = b_temp->pile; 


while(p_temp != NULL && p_temp->id_let[0] != 'b') 
{ 
рип Жо," 96s: 998.01f'", p temp-»id let, p temp-»vert load); 


ifp min » p temp-»vert load) 
р піп = р temp-»vert load; 


p_temp = p_temp->next; 


b_temp = b_temp->next; 
} 


fprintf(ofp,"\n\n\n\tTruck Wheel/Axle Load Information"); 
fprintf( ofp," SSS) 


ifp min € (2*p info-2loads--hs limit wheel str)|p min « (2*p info-2loads-^h limit wheel str)) 
{ 


MOT TOIT), enn пе нем АТИКА КАН 
Torn ht АП ан а рак ава је БОРОНА a ut E S 
fprintf(ofp,"\n\tWarning!!! There are individual pile load capacities"); 
fprintf(ofp,"\n\tthat are less than the computed axle capacities. These"); 
fprintf(ofp,"\n\tpiles can NOT support the calculated axle load. Care"); 
fprintf(ofp,"\n\tshould be taken that these piles are not overloaded."); 


НО UI OOO ИЕНА ЕИ у: 


НРЦ СО, vitet ете EN pb ptu У: 


} 


fprintf(ofp,"\n\n\tFor an HS truck (tractor/trailer) the maximum"); 

fprintf(ofp,"\n\twheel load is: %.0If lbs which gives a maximum",p info-2loads-^hs limit wheel str); 

fprintf(ofp,"\n\taxle load of: 9o.0lf Ibs.",(2*p info-2loads-»-hs limit wheel str)); 

fprintf(ofp,"\n\n\tFor an H truck (similar to a tactical ST) the maximum"); 

fprintf(ofp,"wNtwheel load is: 96.01f lbs which gives a maximum",p info-2loads-^»h limit wheel str); 

fprintf(ofp,"\n\taxle load of: 9o.0lf Ibs.",(2*p info-2»loads-^h limit wheel str)); 

fprintf(ofp,"\n\n\n\tPoint Load Information for Crane Loading"); 

fprintffofp)rntt—— = = = =  ==—== =———; 

if(p_min < p_info->loads->cap_pt_lim||p_min < p_info->loads->pile_pt_miss) 
PENSO. ауа ака жаа НО Er Ir EEE EI TER), 

[рп Ор, \ оваа N s 

fprintf(ofp,"\n\tWarning!!! There are individual pile load capacities"); 

fprintf(ofp,"\n\tthat are less than the computed point load capacities."); 


fprintf(ofp,"\n\tThese piles can NOT support the calculated point load."); 
fprintf(ofp,"\n\tCare should be taken that these piles are not overloaded."); 


О 


DI НЕННЯ ОВО И НЕ ЖЕЕ КК ЫЕ И DD 


Ша 





fprintf(ofp,"\n\n\tThe pile cap point load capacity when bracketed"); 
fprintf(ofp,"\n\tby two good piles is: %.Olf Ibs.",p_info->loads->cap_pt_lim); 
fprintf(ofp,"\n\n\tFor a pile cap over a severely damaged or missing"); 
fprintf(ofp,"\n\tpile, the point load capacity is: %.Olf Ibs.",p_info->loads->pile_pt_miss); 
fprintf(ofp,"\n\n\n\tForklift Assessment"); 

рип Кор," п"); 

fprintf(ofp,"\n\n\tThe Y or N indicates the stringers ability to handle"); 
fprintf(ofp,"\n\tthe forklift axle loading. However, if an individual pile"); 
fprintf(ofp,"\n\tload capacity is less than the indicate axle capacity, the"); 
fprintf(ofp,"\n\tforklift will NOT be able to operate safely over those piles."); 
fprintf(ofp,"\n\n\t\t ST Forklift: %c, axle: 20,000",p info->loads->fork_lim_5); 
fprintf(ofp,"\n\t\t 6T Forklift: %c, axle: 23,000",p info->loads->fork_lim_6); 
fprintf(ofp,"\n\t\t7.5T Forklift: Yc, axle: 19,000",p info->loads->fork_lim_ 75); 
fprintf(ofp,"\n\t\t 8T Forklift: %c, axle: 30,500",p_ info->loads->fork_lim_8); 
fprintf(ofp,"\n\t\t 1OT Forklift: %c, axle: 35,000",p info->loads->fork_lim_10); 
fprintf(ofp,"\n\t\t 12T Forklift: Voc, axle: 44,300",p info->loads->fork_lim_ 12); 
fprintf(ofp,"\n\t\t 1ST Forklift: %c, axle: 58,000",p_info->loads->fork_lim_ 15); 
fprintf(ofp,"\n\t\t 20T Forklift: Yc, axle: 98,000",p info->loads->fork_lim_20); 


uni min = p_info->loads->string_uni_lim_psi; 


if(uni min >p_info->loads->cap_uni lim psi) 
uni min — p info-2loads-»cap uni lim psi; 


if(uni min > p_info->loads->plank un lim psi) 
uni _min=p_info->loads->plank_uni lim psi; 


fprintf(ofp,”\n\n\tThe Uniform Load Capacity is: %.21f psi or %.21f psf.",uni_min,(144*uni_min)); 
if(uni_min > p_info->loads->pile_uni_min) 


fprintf(ofp,"\n\n\tHowever, some areas are even lower as follows (psi)" ); 
b_temp = p_info->bents; 


while(b_temp != NULL) 


fprintf(ofp,"\n\n\tBent #%d", b_temp->id_num); 
p_temp = b_temp->pile; 


while(p temp != NULL && p_temp->id_let[0] != 'b') 
{ 


p_load = uni_min; 


if(p_temp->uni_load_psi < p_load) 
p_load = p_temp->uni_load_psi; 


fprintf(ofp," %s: %7.21f", p_temp->id_let, p_load); 
p_temp = p_temp->next; 


b_temp = b_temp->next; 


} 
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fprintf(ofp,"\n\n\tF or properly loaded containers, the following"); 
fprintf(ofp,"\n\tuniform load values (psf) are applicable:"); 
fprintflofp,"\n\n\t\t # of containers in stack"); 
fprintf(ofp,"\n\n\t\tt L W Н аа) 
fprintfífofp'"'nmn tk ——————————————— "yg 
fprintf(ofp,"\n\n\t\t40.0x8.0x8.0 211 422 633"); 
fprintf(ofp, "\n\t\t29.9x8.0x8.0 234 468 702"); 
fprintf(ofp,"\n\t\t19.9x8.0x8.0 284 568 852"); 
fprintf(ofp,"\n\t\t 9.8x8.0x8.0 286 572 858"); 
fprintf(ofp,"\n\t\t 6.4x8.0x8.0 305 610 915"); 
fprintf(ofp,”\n\t\t 4.8x8.0x8.0 294 589 883"); 
fprintf(ofp,"\n\n\n\tShip Information"); 

Әргіп обр, о"); 


if(p_info->ship = 1||p_info->ship = 2) 
{ 
fprintf(ofp,"\n\n\tThe following ship information was input:"); 
fprintf(ofp,"\n\tShip length: %.0lf ft", p info->ship_data->length); 
fprintf(ofp,"\n\tShip draft: %.0lf ft", p info->ship data->draft); 
fprintf(ofp,"\n\tShip equivalent freeboard: %.0lf ft", p info->ship_data->freeboard); 


if(p_info->ship = 1) 


{ 
rintf(ofp,"\n\tUsing the information provided, it is safe for"); 
fprintf(ofp,"\n\tUsing the inf 1 ided, it is NOT safe for") 
fprintf(ofp,"\n\tthis ship to moor at this pier."); 
ifp info-2est ton ship > 0) 
{ 
fprintf(ofp,"\n\tYou should be able to berth a ship of"); 
fprintf(ofp,"\n\tapproximately %.2If long tons.",(0.8*p_info->est_ton_ship)); 
} 
} 
else 
{ 
fprintf(ofp,"\n\tUsing the information provided, it is safe for"); 
fprintf(ofp,"\n\tthis ship to moor at this pier."); 
} 


} 


fprintf(ofp,"\n\n\tWhen performing load calculations, the following wind"); 
fprintf(ofp,"\n\tand current forces should be applied to the area of the"); 
fprintf(ofp,"\n\tship under consideration:"); 


if(p_info->ship > 0) 


{ 
w load = 1.3*p_info->ship_data->C1*p_info->ship_data->C2*fabs(p_info->forces->wind_x); 
fprintf(ofp,"\n\n\tWind Loading: %.2If psf perpendicular to the pier",w_load); 
w_load = 1.3*p_info->ship_data->C1*p_info->ship_data->C2*fabs(p_info->forces->wind_70); 
fprintf(ofp,"\n\n\tFor winds of 70mph, this force would be: %.2If psf.",w_load); 


else 


if(fabs(p_info->forces->wind_x) > 0.0) 
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{ 
fprintf(ofp,"\n\n\tWind Loading is approximately: %.21f psf perpendicular to the 
pier" fabs(p_info->forces->wind_ x)); 
fprintf(ofp,"\n\n\tFor winds of 70mph, this force would be approximately: %.21f 
psf" ‚fabs(p_info->forces->wind_70)); 
} 


else 
fprintf(ofp,"\n\n\tThere is no Wind Loading with the given input."); 
} 


if(fabs(p_info->forces->current_ship x) > 0.0) 


fprintf(ofp,"\n\n\tCurrent Loading: %.2]f psf perpendicular to the pier" ,fabs(p_info->forces- 
>current_ship_x)); 


} 


else 
fprintf(ofp,"\n\n\tThere is no Current Loading with the given input."); 


fprintf(ofp, "пос", 10); 
fclose(ofp); 
return(f_temp); 


} 


ЕЖЕ ЕЖЕ AR ARANA 
void prn to screen(void) 


{ 
char choice, y. n, f temp, fname[13] 7 "pier. inO.dat"; 
int flag = 0, flag] = 1; 


int handle; 
int bytes; 
void *buf; 
while(flag = 0) 
{ 
clean(); 


printf("\n\n\t\tRSAP - Rapid Structural Assessment, Pier v1.0"); 
printf("\n\n\t\t\tDisplay File Menu"); 

printf("\n\n\t\t\t1)View file just entered"); 

printf("\n\t\t\t2) View previously saved file"); 
printf("\n\t\t\t3)Return to Main Menu"); 

printf("\n\n\t\t\tEnter selection: "); 

choice = getche(); 


switch(choice) 
{ 
case '1': 
fname[7] = 't'; 


if ((handle = open(fname, O_RDONLY |O_TEXT, S_IREAD)) = -1) 
fflush(stdin); 


clrscr(); 
printf("\n\n\n\t\t You need to input data first!!!\n\t"); 


Is 





pause(); 


} 
else 
{ 
fflush(stdin); 
clrscr(); 
if((buf ^ calloc(1, filelength(handle))) = NULL) 
{ 
printf("\n\tError opening read buffer"); 
exit(-1); 
} 


bytes = read(handle, buf, filelength(handle)); 
handle = close(handle); 

printf("%s", buf); 

free(buf); 

pause(); 


break; 


case 2. 
printf("\n\n\t\tEnter a number between 0-9. You should have input"); 
printf("\n\t\tthis number when saving the user data file."); 
printf("\n\n\t\tPlease enter number: "); 
f temp = (int)(check_num()+48); 
fname[7] = f_temp; 
flag] =1; 


while(flagl = 1) 
if ((handle = open(fname, O RDONLY | O_TEXT, S 1ВЕАО)) = -1) 
{ 


printf("\n\n\tFile not found!!! Do you wish to try"); 
printf(" another file (y/n)? "); 
y_n= getche(); 


while(y_n !='y'&&y_n !='Y'&&y_n !='n'&&y_n!='N') 
{ 


prt_inv(); 
printf("\n\tDo you wish try another file (y/n)? "); 
y_n= getche(); 


iy n — ylly n — Y) 
{ 


printf("\n\n\tPlease enter new number: "); 
f temp = (int)(check_num()+48); 
fname[7] = f temp; 
} 
else 
flag! = 2; 
} 
else 
flag! = 0; 
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} 


} 
if(flag] — 0) 


fflush(stdin); 
clrscr(); 
if((buf = calloc(1, filelength(handle))) = NULL) 


printf("\n\tError opening read buffer"); 
exit(-1); 


} 
bytes = read(handle, buf, filelength(handle)); 
handle = close(handle); 
printf(" 96s", buf); 
free(buf); 
pause(); 
j 
break; 


Case 3. 
flag = 1; 
break; 


default: 
flag = 0; 
prt_inv(); 
break; 


Е a ef 


void pile plot(PierData *p info, char f temp) 


( 


FILE *ofp,*tfp; 

Bent *b_temp; 

Pile *p_temp; 

char fname[11] 7 "pil pltO.m"; 
char tname[11] 7 "uni pltO0.m"; 
double uni min, p load; 


time tt; 


time(&t); 
fname[7] = f temp; 
оф = fopen(fname, "w"); 


if(ofp — NULL) 


{ 
printf("\nERROR: Cannot open user output file!\n"); 


exit(-1); 


fprintf(ofp,"%% "); 


ШЕ] 





date_plot(ofp); 

fprintf(ofp,"%%"): 

fprintf(ofp,"\n%% This file processes the output of RSAP to plot the"); 
fprintf(ofp,"\n%% strength contours of the pile capacities."); 
fprintf(ofp,"\n%%"); 

fprintf(ofp,"\n%% (C)1999 - All rights reserved"); 
fprintf(ofp,"\n%% R. J. Keiter(rjkeiter@iname.com)"); 
fprintf(ofp,"\n\nbents = %d;", p_info->no_of_bents); 
fprintf(ofp,"\npiles = %d;", p_info->piles_per_bent); 
fprintf(ofp,"\nb_span = %.2I1f;", p_info->bent_spread); 
fprintí(ofp,"inp_span = %.21f;", p_info->pile spread); 
fprintf(ofp,"\n"); 

fprintf(ofp,"\n%%z = capacity matrix"); 

fprintf(ofp,"\n"); 

fprintf( ofp,” \nz = ["); 

b_temp = p_info->bents; 


while(b_ temp != NULL) 
{ 
fprintf(ofp,"["); 
p_temp = b_temp->pile; 


while(p_temp != NULL && p_temp->id_let[0] !='b') 


fprintf(ofp,"%.0lf", p_temp->vert_load); 
p_temp = p_temp->next; 


if(p_ temp != NULL && p_temp->id_let[0] !='b') 
fprintf(ofp," "); 
) 


b_temp = b_temp->next; 


if(b_ temp == NULL) 
fprintf(ofp,"]];n"); 
else 
{ 
fprintf(ofp," |n"); 
fprintofp," —") 
j 
j 


fprintf(ofp,"\nx_lim 7 (piles - 1) * p span;"); 
fprintf(ofp,"\nx_lim2 = x_lim/2;"); 
fprintf(ofp,"\ny_lim = (bents - 1) * b_span;"); 
fprintf(ofp,"\n"); 
fprintf(ofp,"\nx=-x_lim2:p_span:x_lim2;"); 
fprintf(ofp,"\ny=0:b_span:y_lim;"); 
fprintf(ofp,"\n"); 

fprintf(ofp,"\nxi = linspace(-x_lim2,x_lim2,x_lim);"); 
fprintf(ofp,"\nyi = linspace(0,y_lim,y_lim/2);"); 
fprintf(ofp,"\n"); 

fprintf(ofp,"\n{X, Y]=meshgrid(x,y);"); 
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fprintf(ofp,"\n[Xi, Yi] = meshgrid(xi,yi);"); 
fprintf(ofp,"\n"); 

fprintf(ofp,"\nZ = interp2(x,y,2,Xi, Yi,'cubic');"); 
fprintf(ofp,"\n"); 
fprintf(ofp,"\ncolormap(gray);"); 

fprintf(ofp, "npcolor(Xi, Yi,Z);"); 
fprintf(ofp,"\ncolorbar('v');"); 

fprintf(ofp,"\n"); 

fprintf(ofp,"\nshading interp"); 
fprintf(ofp,"\nhold on"); 
fprintf(ofp,"\ncontour(X1,Y1,2,10,'K')"); 
fprintf(ofp,"\n"); 

fprintf(ofp,"\naxis({(-x_lim * 2) (x lim * 2) 0 (y lim * y lim/4)]);"); 
fprintf(ofp,"\n"); 
fprintf(ofp,"\nyl=linspace(0,y_lim,2),"); 
fprintf(ofp,"nxl-linspace(-x lim2,-x lim2,2);"); 
fprintf(ofp,"\nplot(xl,yl);"); 

fprintf(ofp,"\n"); 
fprintf(ofp,"\nyt=linspace(y_lim,y_lim,2);"); 
fprintf(ofp,"\nxt=linspace(-x_lim2,x_lim2,2);"); 
fprintf(ofp,"\nplot(xt,yt);"); 

fprintf(ofp,"\n"), 
fprintf(ofp,"\nxr=linspace(x_lim2,x_lim2,2);"); 
fprintf(ofp, " nplot(xr,y1);") 
fprintf(ofp,"\ntitle('Plot of Point Loading Capacity(lbs) - Based upon Pile Locations');"); 
fprintf(ofp,"\nxlabel(’Pier Width - ft');"); 
fprintf(ofp,"nylabel('Pier Length - ft);"); 
fclose(ofp); 


uni min - p info-2loads-»string uni lim psi; 
tname[7] ^ f temp; 
р = fopen(tname, "w"); 


Up NULL) 
( 
printf("\nERROR: Cannot open user output file!\n"); 
exit(-1); 


} 


fprintf(tfp,"%% "); 

date_plot(tfp); 

fprintf(tfp,"%%" ); 

fprintf(tfp,"\n%% This file processes the output of RSAP to plot the"); 
fprintf(tfp,"\n%% uniform loading contours of the pier."); 
fprintf(tfp,"\n%%"); 

fprintf(tfp,"\n%% (C)1999 - All rights reserved"); 
fprintf(tfp,"\n%% R. J. Keiter(rjkeiter@iname.com)"); 
fprintf(tfp,"\n\nbents = %d;", p_info->no_of_bents); 
fprintf(tfp,"\npiles = %d;", p_info->piles_per_bent); 
fprintf(tfp,"\nb_ span = %.2If;", p_info->bent_spread); 
fprintf(tfp,"\np_span = %.2If;", p_info->pile_spread); 
fprintf(tfp,"\n"); 

fprintf(tfp,"\n%%z = capacity matrix"); 
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fprintf(tfp,"\n"); 
fprintf(tfp,"\nz = ["); 
b_temp = p_info->bents; 


while(b_temp != NULL) 
{ 
fprintf(tfp,"["); 
p_temp = b_temp->pile; 


while(p_temp != NULL && p_temp->id_let[0] !='b') 
{ 
р Іоай = шпі тіп; 


if(p_temp->uni_load_psi < p_load) 
p_load = p_temp->uni_load_psi; 


fprintf(tfp,"%.21f",p load); 
p_temp = p_temp->next; 


if(p_temp != NULL && p_temp->id_let[0] != 'b') 
fprintf(tfp," Ej 
j 


b_ temp = b_temp->next; 


if(b_temp == NULL) 
fprintf(tfp,"]];\n"); 
else 
{ 
fprintf(tfp," Jn"); 
fprintf(tfp," "); 
j 
j 


fprintf(tfp,"nx lim 7 (piles - 1) * p span;"); 
fprintf(tfp,"\nx_lim2 = x_lim/2;"); 
fprintf(tfp,"\ny_lim = (bents - 1) * b_span;"); 
fprintf(tfp,"\n"); 
fprintf(tfp,"\nx=-x_lim2:p_span:x_lim2;"); 
fprintf(tfp,"\ny=0:b_span:y_lim;"); 
fprintf(tfp,"\n"); 

fprintf(tfp,"\nxi = linspace(-x_lim2,x_lim2,x_lim);"); 
fprintf(tfp,"\nyi = linspace(0,y_lim,y_lim/2);"); 
fprintf(tfp,"\n"); 
fprintf(tfp,"\n[X, Y ]=meshgrid(x,y);"); 
fprintf(tfp,"\n[ Xi, Yi] = meshgrid(xi,y1);"); 
fprintf(tfp,"\n"); 

fprintf(tfp,"\nZ = interp2(x,y,z,Xi, Yi,'cubic’);"); 
fprintf(tfp,"\n"); 
fprintf(tfp,"\ncolormap(gray);"); 
fprintf(tfp,"\npcolor(Xi, Y1,Z);"); 
fprintf(tfp,"\ncolorbar(‘v');"); 

fprintf(tfp,"\n"); 
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} 


fprintf(tfp,"\nshading interp"); 

fprintf(tfp,"\nhold on"); 

fprintf(tfp,"\ncontour(Xi, Yi,Z,10,'k')"); 

fprintf(tfp,"\n"); 

fprintfltfp,"\naxis([(-x_lim * 2) (x lim * 2) 0 (y_lim + y_lim/4)]);"); 
fprintf(tfp, n"); 

fprintf(tfp,"\nyl=linspace(0,y_lim,2);"); 
fprintf(tfp,"\nxl=linspace(-x_lim2,-x_lim2,2);"); 
fprintf(tfp,"\nplot(xl,yl);"); 

fprintf(tfp,"\n"); 

fprintf(tfp,"\nyt=linspace(y_lim,y_lim,2);"); 
fprintf(tfp,"\nxt=linspace(-x_lim2,x_lim2,2);"); 
fprintf(tfp,"\nplot(xt,yt);"); 

fprintf(tfp,"\n"); 
fprintf(tfp,"\nxr=linspace(x_lim2,x_lim2,2);"); 
fprintf(tfp,"\nplot(xr,yD);"); 

fprintf(tfp,"\ntitle('Plot of Uniform Loading Capacity(psi)');"); 
fprintf(tfp,"\nxlabel('Pier Width - ft’);"); 
fprintf(tfp,"\nylabel('Pier Length - ft);"); 

fclose(tfp); 


ЖЖ ЕЕК КЕ, 


double test_input_double(double check) 


{ 


char in_value[20] = {0}, choice; 


int ctr = 0, j; 
double 1 = 0.0; 
int flag = 0; 


while(flag — 0) 
{ 
scanf(" Vos", in value); 


ifin value[0] — 'O'&&strlen(in value) — 1&&check — 0.0) 
return(0.0); 


1 = atof(in_value); 
for(j = 0; j < strlen(in_value); j++) 


ifisalpha(in value[j])) 


i= -1.0; 
} 
if(1« check) 
{ 
CITT 
if(ctr >= 3) 


printf("\n\tThat's 3 incorrect inputs in a row."); 
printf("\n\tDo you wish to quit(y/n)? "); 
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choice = getche(); 
if(choice = 'y'|choice — 'Y") 
{ 


printf("\n\n\tLater!!!"); 


exit(0); 
j 
else 
{ 
ctr = 0; 
} 
) 
prt_inv(); 


printf("\n\tRe-enter value: "); 
in value[0] = ‘\0’; 
} 


else 
flag = 1; 
} 


return(1); 


j 


АЖ ЗА Xo ЕЖЕ ЖЕНА | 


int test_input_int(int check) 


char in_value[20] = {0}, choice; 
int i = 0, ctr = 0, flag = 0, J; 


while(flag = 0) 
scanf(" %s", in_value); 


ifün value[0] — 'O'&&strlen(in value) — 1&&check = 0) 
return(0); 


1 = atoi(in_value); 


for(j = 0; } < strlen(in_value); j++) 


{ 
if(isalpha(in value[j])) 
17 -1.0; 
) 
if(i < check) 
{ 
С 
if(ctr >= 3) 
{ 


printf("\n\tThat's 3 incorrect inputs in a row.”"); 
printf("\n\tDo you wish to quit(y/n)? "); 
choice = getche(); 
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if(choice = '‘y'||choice = 'Y') 
{ 


printf("\n\n\tLater!!!"); 


exit(0); 

} 

else 

{ 
ctr = 0; 

} 

} 
prt_inv(); 


printf("\n\tRe-enter value: "); 
in value[0] — ^05; 
} 


else 
flag = 1; 
} 


return(i); 
j 


IT ЕЕ жж ok Xe 3k АДА ok 3k 3 О ox eco dc eoe Ok 3 3k Ok 3k Ok ae ake ae Sk 3k ke 


int check_num(void) 


{ 
char temp[5]; 
inti 7 10; 


while(i > 9) 
{ 
scanf(" %s", &temp); 
1 = atoi(temp); 


if(1 » 0&&i « 10)|(temp[0] — 'O'&&strlen(temp) — 1)) 


return(i); 
j 


else 


{ 
prt_inv(); 
printf("\n\t\tPlease enter number: "); 
i= 10; 
} 
} 


return(0); 
j 


KKK KK KK KF FF OK OF OF IO ЖЖЖЖ ЖЖЖЖ 


void clean(void) 


{ 


cirscr(); 
printf("\n\n\t\t(C)1999 - All rights reserved."); 
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printf("\n\t\t R. J. Keiter (rjkeiter@iname.com)"); 
printf("\n\n\t\t Today is: "); 
put_date(); 
printf("\n\n"); 
} 


prr ЖУ УЕ КЫ Ж ЖК УЫ ЖЫК ЖКК ЖоК ККК ЖОК ЖЖ ЖЖЖЖ Ж ЖЖ ЖКК ЖЖ Жж жжжжж ж / 


void date_plot(FILE *ofp) 
{ 


time tt; 


time(&t); 
fprintf(ofp,"%s", ctime(&t)); 
} 


EEE OR ROC EROR OR EO SESE RRR R EKER ERE EERE RARE A ER TRE / 


void pause( void) 
char msg[27] = ("Press enter to continue..." }; 


printf("\n\t%s", msg); 
while ((getchar()) !='\n') () 
fflush(stdin); 


} 


ЕЕ А АДА ,/ 
void put_date(void) 


{ 


struct date d; 


getdate(&d); 
printf("%d/%d/%d", d.da_mon, d.da_day, d.da year); 
} 


ЕЕ ЖОВ ВЕ ЖК ee у 
void prt_err(char temp[35]) 


{ 
printf("\nERROR: Cannot create %s Structure!\n", temp); 


exit(-1); 


} 


ЖЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖ КЖ ЖЖ ЖЖ ЖК ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖЖЖЖХ / 


void prt_inv(void) 


fflush(stdin); 
printf("\n\n\tInvalid input! Please try again...\n\n"); 


pause(); 
clrscr(); 


} 


[ЖЖЖЖЖЖЖЖЖЖ ЖЖ Ж ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖЖЖЖЖХ | 
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Appendix F - Sample RSAP Output Data File 


File generated: Fn Jan 15 05:27:06 1999 


The following information was input in to RSAP. 
(C)1999 - All rights reserved. R. J. Keiter 


— 


The wind speed was measured at 15 mph, 30' above 
the water's surface at an angle of 35 degrees. 

The current speed was measured at 0.68 mph at an 
angle of 85 degrees. 

1.17' waves at 14 seconds were observed in 35' of water at an 
angle of 10 degrees. 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжж АТТЕХ ПОМ!!! ж жжжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


These waves do not fall under the theory used here to 
analyze the forces due to waves. The actual forces will 
most likely be larger than that calculated and used ш 
this assessment. Proceed with caution! 


RK KKK KKK KKK KK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KK KKK k k k 
KF k kk k k k k k k k k k k k ATTENTION!!! ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
K k k kK K KK K k kk kK kk k k kK kK k k k kK kK kK kK kK kK k k k k k k k kK kK K kK kK K k k kK k k kK k k kK k k k k 


Soil Type: Medium Sand 
This analysis was performed using a factor of safety of: 2.00 


Number of bents: 7 

The distance between bents is: 12.00' 

The pilings are 14" Douglas Fir with 5" of bio-fouling. 
Number of piles per bent: 5 

Distance between pilings: 8.00' 


The superstructure is constructed of White Oak, 
has cross bracing, and has a solid type pile cap. 
The pile cap member dimensions are 14" x 20". 
The stringers are 3" x 16" and are centered 1.50' apart. 
The deck planking is 12" x 3". 
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The piling inspection information is as follows: 
(The number following the bent number is the 
distance from the bottom to where the piling 
meets the cross bracing.) 


Bent #1 - 25' 
A:ND B:ND C:ND D:ND E:ND 


Bent #2 - 30' 
A:ND B:MN C:ND D:ND E:ND 


Bent #3 - 40' 
А: КО B:ND С: №” р: $5У Е: Мр 


Bent #4 - 40' 
А: МО В: М” C: ND D: ND E: ND 


Bent £5 - 40' 
A:ND B:ND C:SV D:ND E: ND 


Bent $6 - 40' 
А: ХО B: Mj. C: ND D: ND E: ND 


Bent #7 - 40' 
A:ND B:ND C:ND D:ND E:ND 


— —— — — — — — — — — — — -—— -— — — — — — — — -- -- -- ---- ---- - - > «<< - «> о Бо а ьо i 
— —— — — — — — .— — —-  — — — — — — -  — -- A IM 





Assessment Information =============== 











The pier natural period is 0.56 seconds. If we 
compare this to the wave period of 14.00 seconds, 
this should be nothing to be concerned about... 


The pile locations can hold the following point loads(lbs) 


Bent #1 
A: 206048 B: 204741 C: 204741 D: 204741 E: 206048 


Bent #2 
A: 206048 B: 149607 C: 204741 D: 204741 E: 206048 


Bent #3 
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А: 206048 В: 204741 С: 204741 D: 0 E: 206048 


Bent £4 
А: 206048 В: 204741 С: 204741 D: 204741 E: 206048 


Bent #5 
A: 206048 B: 204741 C: 0 D: 204741 E: 206048 


Bent #6 
A: 206048 B: 0 C: 204741 D: 204741 E: 206048 


Bent #7 
A: 206048 B: 204741 C: 204741 D: 204741 E: 206048 


Truck Wheel/Axle Load Information 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж жжжж 


Warning!!! There are individual pile load capacities 
that are less than the computed axle capacities. These 
piles can NOT support the calculated axle load. Care 


should be taken that these piles are not overloaded. 
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For an HS truck (tractor/trailer) the maximum 
wheel load is: 13274 lbs which gives a maximum 
axle load of: 26548 lbs. 


For an H truck (similar to a tactical ST) the maximum 
wheel load is: 13274 lbs which gives a maximum 
axle load of: 26548 Ibs. 


Point Load Information for Crane Loading 
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Warning!!! There are individual pile load capacities 

that are less than the computed point load capacities. 

These piles can NOT support the calculated point load. 
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Care should be taken that these piles are not overloaded. 
sk ok ok of k ak ode ad ade ade a ode ade de ade ad ade ade de ole ad ade ade ad ole ad ode ade e ad o ade e ade ode e k k ale ad ade ode e ole a ale a k ad ale ole Æ 


* k * > k ode of of ok of ok k k R k ad K R k K KOR OK R R K K R Rk K ade ad R Rk Rk KOR K K R KOR OR K KOR R R R 2k R R 


The pile cap point load capacity when bracketed 
by two good piles is: 171802 Ibs. 


For a pile cap over a severely damaged or missing 
pile, the point load capacity is: 52013 Ibs. 


Forklift Assessment 


The Y or N indicates the stringers ability to handle 


the forklift axle loading. However, if an individual pile 
load capacity is less than the indicate axle capacity, the 
forklift will NOT be able to operate safely over those piles. 


5T Forklift: Y, 
6T Forklift: Y, 
7.5T Forklift: N, 
8T Forklift: N, 
10T Forklift: N, 
12T Forklift: N, 
LST Forklift: N, 
20T Forklift: N, 


axle: 20,000 
axle: 23,000 
axle: 19,000 
axle: 30,500 
axle: 35,000 
axle: 44,300 
axle: 58,000 
axle: 98,000 


The Uniform Load Capacity is: 10.24 psi or 1474.90 psf. 


However, some areas are even lower as follows (psi) 


Bent #1 A: 10.24 B: 1024 C: 1024 D: 1024 E: 1024 
Bent #2 A: 1024 B: 1024 С: 1024 D: 10.24 Е: 10.24 
Bent #3 A: 10.24 B: 10.24 C: 10.24 D: 0.00 Е: 10.24 
Bent #4 A: 10.24 B: 1024 C: 1024 D: 10:24 E: 10.24 
Вет #5 А: 10.24 B: 1024 C: 0.00 D: 10.24 E: 10.24 
Bent #6 A: 10.24 B: 0.00 C: 1024 D: 1024 E: 10.24 
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Bent #7 A: 10.24 B: 


10.24 7€: 


10.24 D: 10.24 E: 10.24 


For properly loaded containers, the following 
uniform load values (psf) are applicable: 


# of containers in stack 


L WH 


40.0x8.0x8.0 
29.9x8.0x8.0 
19.9х8.0х8.0 
9.8х8.0х8.0 
6.4х8.0х8.0 
4.8х8.0х8.0 


Ship Information 


1 


Zu 3 


211 422 
234 468 
284 568 
286 572 
305 610 
294 589 


El nl 


— — рт — T 


— — — — — — — же = =— = — == — — =— = — C 


633 
702 
852 
858 
915 
883 


When performing load calculations, the following wind 
and current forces should be applied to the area of the 
ship under consideration: 


Wind Loading is approximately: 0.32 psf perpendicular to the pier 


For winds of 70mph, this force would be approximately: 7.19 psf 


Current Loading: 0.99 psf perpendicular to the pier 
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